[Toulibre] calc

[Rémi Boulle]

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 at toulibre.org
> http://toulibre.org/cgi-bin/mailman/listinfo/toulouse-ll
> 
>