Un truc comme ça par exemple ?
Sub recopierVersLeBas(nF, nZ As String)
Dim feuille As Object, zone As Object, direction As Integer
feuille = ThisComponent.Sheets.getByName(nF)
zone = feuille.getCellRangeByName(nZ)
direction = com.sun.star.sheet.FillDirection.TO_BOTTOM
zone.fillAuto(direction, 1)
End Sub
nF : nom de la feuille
nZ : nom de la zone complète (y compris la première ligne qui sera
copiée dans les suivantes)
Pascal
Gabriel a écrit :
Bonjour,
Je recherche une formule basic pour faire un étirement de formule calc
comme on le fait à la main avec la poignée de recopie. J'ai cherché sur
la toile, sans résultat. J'ai utilisé l'enregistreur de macro, mais
erreur à l'utilisation dans une boucle.
Je suis sous ubuntu avec openoffice 3 téléchargé sur le cite francophone.
Merci
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
