XL 2016 Comment récupérer la valeur sélectionnée d'un ComboBox

Dudu2 · 6 Août 2020

Bonjour,
Je créé une ComboBox dynamiquement. Hors UserForm (ce qu'il faut certainement éviter).
J'arrive à capturer l'évènement de Click mais impossible de récupérer le ListIndex ou toute autre chose à part le nom de l'objet.

Merci pour toute proposition de syntaxe correct.
JP

pierrejean · 6 Août 2020

Re
Comme ceci peut-etre

VB:

Sub ComboListe_Click()
MsgBox (ComboListe.Value)
'    Call ComboListeClic
End Sub

pierrejean · 6 Août 2020

Re
Comme ceci peut-etre

VB:

Sub ComboListe_Click()
MsgBox (ComboListe.Value)
'    Call ComboListeClic
End Sub

Dudu2 · 6 Août 2020

Merci pierrejean, ça fonctionne très bien je n'aurais jamais pensé à ça !
J'ai juste adapté pour passer ComboListe à la fonction du module:

Code dans la feuille contenant la ComboBox:

VB:

'-------------------------------------
'Évènement Clic sur l'objet ComboListe
'-------------------------------------
Sub ComboListe_Click()
    Call ComboListeClic(ComboListe)
End Sub

Code dans un module général:

Code:

'-----------------------------------
'Évènement capturé dans la feuille !
'-----------------------------------
Sub ComboListeClic(CB As Object)
    MsgBox CB.Value
End Sub

XL 2016 Comment récupérer la valeur sélectionnée d'un ComboBox

Dudu2

XLDnaute Barbatruc

Pièces jointes

pierrejean

pierrejean

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Pièces jointes

Discussions similaires