5 messages in org.openoffice.fr.progRe: [prog] Re: Comportement étrange ...
FromSent OnAttachments
Michel GrentzingerNov 11, 2007 12:17 pm 
Bernard MarcellyNov 11, 2007 11:53 pm 
Michel GrentzingerNov 12, 2007 7:45 am 
AladdinNov 12, 2007 8:54 am 
Michel GrentzingerNov 12, 2007 11:28 am 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:Re: [prog] Re: Comportement étrange d'une sélectionActions...
From:Michel Grentzinger (mic.@online.fr)
Date:Nov 12, 2007 11:28:57 am
List:org.openoffice.fr.prog

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