Rémi Boulle a écrit :
> Chris Fabre wrote:
>
>> bonjour,
>> quelqu'un pourrait-il me dire comment ajouter (ou supprimer) une même
>> ligne dans toutes les feuilles d'un classeur calc ?
>>
>
> Je me suis pris au jeu et voilà une macro qui semble fonctionner à
> adapter à tes besoins (testée avec OOo3).
> Tout avis pour l'améliorer sont bienvenus.
> '=================
> Sub EffacerLigne
> Dim monDoc As Object
> Dim lesLignes As Object
> Dim maZone As Object
>
> monDoc = ThisComponent
> 'On boucle sur les feuilles du classeur
> For i = 1 to monDoc.Sheets.Count
> 'L'objet Rows n'est accessible que via CellRange
> maZone = monDoc.Sheets(i-1).getCellRangeByName("A1:A20")
> lesLignes = maZone.Rows
> 'Efface 1 ligne à partir de la ligne numero 2 incluse
> lesLignes.removeByIndex(2,1)
> Next
> End Sub
> '================
> @+
> Rémi.
Merci ça tourne (OOo2).
Amélioration que je tenterai dès que possible (je n'ai encore qu'une
petite pratique de LB...dans Excel):
- supprimer la ligne sélectionnée
- ou créer une boîte de dialogue demandant le n°de ligne à supprimer)
@+
Chris
_______________________________________________
Toulouse-ll mailing list
Toulouse-ll@toulibre.org
http://toulibre.org/cgi-bin/mailman/listinfo/toulouse-ll
