Merci mais bon j'ai essayé mais j'ai ça comme résultat
Je ny comprends rien, pour être honnête
Merci si vous avez une minute
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: [email protected]
For additional commands, e-mail: [email protected]
