[Toulibre] calc

Rémi Boulle rboulle at free.fr
Jeu 23 Oct 22:11:08 CEST 2008


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.



Plus d'informations sur la liste de diffusion Toulouse-ll