Récupérer via une macro dans un module normal le "ListIndex" d'un ComboBox

[Magic_Doctor]

Bonjour,

J'ai un ComboBox qui s'appelle : "ComboBoxListeAssemblages1"
Je voudrais récupérer, dans une procédure qui ne soit pas dans un module de feuille, la valeur correspondant à ListIndex du ComboBox.

Si j'écris :

Sub valeur()

Dim ComboBoxListeAssemblages1 As Object, zaza As Object

Set zaza = ActiveSheet.OLEObjects("ComboBoxListeAssemblages1")

zaza.Select '---> Ça marche
zaza.Name '---> Ça marche
zaza.ListIndex '---> Ça ne marche pas

End Sub

Peut-on récupérer ce ListIndex ?

Merci d'éclairer ma lanterne.

 

[tototiti2008]

Re : Récupérer via une macro dans un module normal le "ListIndex" d'un ComboBox

Bonjour Magic_Doctor,

Essaie

zaza.Object.ListIndex

 

[Magic_Doctor]

Re : Récupérer via une macro dans un module normal le "ListIndex" d'un ComboBox

Bonjoue tototiti2008,

Ça marche !

Si j'écris :

Sub valeur()

Dim zaza As Object

Set zaza = ActiveSheet.OLEObjects("ComboBoxListeAssemblages1")

[Q5] = zaza.Object.ListIndex

End Sub

en Q5 j'obtiens bien la valeur du ListIndex du Combo.

Merci