Re: [prog] Combobox et macro

[xavier roguiez]

Francois Gatto a écrit :

Bonjour,

xavier roguiez a écrit :

Bonjour

A partir de l'exemple suivant :

http://www.oooforum.org/forum/viewtopic.phtml?t=55472&highlight=com+sun+star+form+component+combobox


tu devrais arriver à quelque chose ;-)

C'est nickel, il me manquait le passage de la forme et la combobox.

Autre question : est il possible de renvoyer dans la cellule liée la
position de l'item sélectionné dans le menu déroulant ?

Bon week end
xavier

Pour retrouver l'index de l'item, voici une idée :

sub selectedComboItem

dim oSheet as object, oDrawPage as object, oCombo as object
dim i as integer
dim sLinkedCell as string
dim aCurrentValue as variant, aListeValues() as variant

oSheet = ThisComponent.CurrentController.ActiveSheet
oDrawPage = oSheet.DrawPage
sLinkedCell = oSheet.getCellRangeByName( "A5" ).String

oCombo = oDrawPage.Forms.getByName( "Standard" ).getByName( "ComboBox" )

aCurrentValue = oCombo.CurrentValue
aListeValues() = oCombo.StringItemList

for i = LBound( aListeValues() ) to UBound( aListeValues() )
 if aCurrentValue = aListeValues(i) then
  msgbox "L'index de l'item est le " & i+1
  exit for
 endif
next

end sub

Pour l'indiquer dans la cellule liée, tu pourrais faire comme cela :

oSheet.getCellRangeByName( "A5" ).String = aCurrentValue & " " & i+1

Francois Gatto

Merci, ca marche !

Bonne journée
xavier

---------------------------------------------------------------------
To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org
For additional commands, e-mail: prog-h...@fr.openoffice.org