XL 2016 Valeur choix liste combobox userform

Staple1600

XLDnaute Barbatruc

• 20 Janvier 2021

• #2

Bonsoir le fil, sylvaindavid2

=>sylvaindavid2

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

S

sylvaindavid2

XLDnaute Nouveau

• 20 Janvier 2021

• #3

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

 

Pièces jointes

• Classeur1.xlsm

  14 KB · Affichages: 12

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Janvier 2021

• #4

Re

Essaies ainsi

VB:

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Janvier 2021

• #5

Bonsoir.
MsgBox ComboBox1.ListIndex

Édition: … + 1 en effet.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Janvier 2021

• #6

Bonsoir Dranreb

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Janvier 2021

• #7

sylvaindavid2 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Janvier 2021

• #8

Re

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

VB:

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.

 

Vote positif 0 Vote négatif