Je ne sais pas pourquoi ce .txt apparaît comme pièce jointe. J'ai envoyé une
image
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
