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