[Toulibre] calc

[Chris Fabre]

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