XL 2016 Valeur choix liste combobox userform

[sylvaindavid2]

Bonjour à tous.

J'aurais besoin de vos connaissances!
Est-il possible de savoir et d'extraire dans une variable la position du choix qui a été fait dans un combobox?
Je m'explique, si l'utilisateur choisit la ligne 3 dans le menu déroulant j'aimerais pouvoir extraire la valeur 3 ou une valeur que j'aurais attribué à chaque lignes.
J'ai regardé dans les préférences du combobox mais je n'ai pas trouvé.
Merci de votre aide.

Je vous souhaite une bonne soirée à tous !

 

[Staple1600]

Bonsoir le fil, sylvaindavid2

=>sylvaindavid2

J'ai regardé dans les préférences du combobox mais je n'ai pas trouvé.

J'ai regardé dans le cahier de présence de cette discussion.
Rien de noté sur l'absence d'un fichier exemple joint par le demandeur.
Sans doute sa préférence est de vouloir accéder à nos connaissances sans fournir de substance sur laquelle basée nos tests.
😉

 

[sylvaindavid2]

Effectivement j'aurais du mettre un fichier, ca aurait été plus facile dsl 😅
Merci 😁

 

[Staple1600]

Re

Essaies ainsi

Private Sub Valider_Click()
MsgBox ComboBox1.ListIndex + 1
End Sub

 

[Dranreb]

Bonsoir.
MsgBox ComboBox1.ListIndex

Édition: … + 1 en effet.

 

[Staple1600]

Bonsoir Dranreb

Trop tard 😉
(cf message#4 😉)
Pas de +1 pour toi?

 

[Dranreb]

ou une valeur que j'aurais attribué à chaque ligne

MsgBox Array(10, 20, 30, 40, 50, 60, 70)(ComboBox1.ListIndex)
Là, pas de + 1.

 

[Staple1600]

Re

=>sylvaindavid2
[Juste pour infos]
Tu pourrais ta ComboBox avec List
Voir ci-dessous le code de ton Userform modifié

Dim liste
Private Sub UserForm_Initialize()
liste = _
    Array("Fraisage barre MT1", "Fraisage barre MT2", "Fraisage Bumotec S1000-C2", _
    "Fraisage diviseur", "Tournage MT1", "Tournage MT2")
ComboBox1.List = liste
End Sub
Private Sub Valider_Click()
MsgBox ComboBox1.ListIndex + 1
End Sub

NB: Je préfère utiliser Initialize plutôt que Activate.