Le lundi 12 novembre 2007 17:54, Aladdin a écrit :
> Sub CurrentRegion
> Dim oDocument As Object, oSheet As Object,
> oSelection As Object, oCursor As Object
>
> oDocument = thisComponent
> oSheet = oDocument.CurrentController.getActiveSheet
>
> ' Première cellule de la sélection de données
> oSelection = oDocument.CurrentController.Selection
>
> oCursor = oSheet.createCursorByRange(oSelection)
>
> oCursor.collapseToCurrentRegion
>
> oDocument.CurrentController.Select(oCursor)
> End Sub
C'est exactement ce qu'il me fallait ! Merci. J'avais prévu de tester ça
aujourd'hui en plus...
Est-ce que par hasard quelqu'un sait comment faire pour aller à la fin d'une
colonne ou d'une ligne ?
Je n'ai pas trouvé dans l'API (gotoEnd se rend à la dernière cellule remplie).
Faut-il passer par une astuce ?
A +
--
Michel Grentzinger
OpenPGP key ID : B2BAFAFA
Available on http://www.keyserver.net
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
