Chris Fabre wrote:
> 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)
Bonne idée.
Tout cela est faisable avec OOo.
Tiens nous au courant. Je suis intéressé à titre purement pédagogique. :-)
@+
Rémi.
> @+
> Chris
>
> _______________________________________________
> Toulouse-ll mailing list
> Toulouse-ll@toulibre.org
> http://toulibre.org/cgi-bin/mailman/listinfo/toulouse-ll
>
>
_______________________________________________
Toulouse-ll mailing list
Toulouse-ll@toulibre.org
http://toulibre.org/cgi-bin/mailman/listinfo/toulouse-ll
