-----Message d'origine-----
De : Francois Gatto [mailto:o...@volcar.org]
Envoyé : mardi 10 novembre 2009 05:51
À : prog@fr.openoffice.org
Objet : Re: [prog] Re: Rechercher et remplacer automatique dans calc
Bonjour
Je crois que l'image n'est pas visible, alors je recommence, et merci pour
votre patience
Michel
l'enregistreur de macros aurait pu solutionner ton problème ; mais c'est
pas très pro.
Voici un exemple :
sub jumpToCell
dim oSheet as object
dim oRange as object
dim jumpCell as object
dim colonneCible as integer
dim derniereLig as long
'recherche les limites de la zone utilisée
oSheet = ThisComponent.CurrentController.ActiveSheet
oRange = oSheet.createCursor()
oRange.gotoStartOfUsedArea( False )
oRange.gotoEndOfUsedArea( True )
'recupère coordonnées dernière ligne / derniere colonne
with oRange
derniereLig = .getRangeAddress.EndRow
'derniereCol = .getRangeAddress.EndColumn 'pour info
end with
colonneCible = 1 ' index colonne (base 0)
oSheet.getCellByPosition( colonneCible, derniereLig )
jumpCell=oSheet.getCellByPosition( colonneCible, _
derniereLig + 1 _
)
ThisComponent.getCurrentController().Select(jumpCell)
end sub
!!! merci de créer un nouveau message pour poser une question !!!
!!! ne pas répondre à un autre dont l'objet est sans rapport !!!
Francois Gatto
---------------------------------------------------------------------
To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org
For additional commands, e-mail: prog-h...@fr.openoffice.org
---------------------------------------------------------------------
To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org
For additional commands, e-mail: prog-h...@fr.openoffice.org
