combobox et label

Bonjour à vous tous,

j'ai un petit problème pour afficher ce que je souhaite dans un label. j'ai essayé de chercher sur internet la solution mais je n'arrive pas à la trouver.

voila dans un userform, j'ai une combobox et un label.

dans mon classeur excel jai

livre            resumé
livre 1          blablablablablabla
livre 2          bliblibliblibliblbilbi

Je souhaiterais que si je selectionne le "livre1" dans la combobox, alors dans le label ca affiche "blablablablabla".

voici mon code, mais cela ne marche pas :/

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub label_Change() i = 2     Do While Worksheets("info produit").Cells(i, 1) <> "" If Worksheets("info produit").Cells(i, 1) = ComboBox1 Then Me.Label2.Caption = Worksheets("info produit").Cells(i, 4).Value End If i = i + 1 Loop   End Sub

---

Merci pour votre aide
cordialement
gipn

Bonjour,

déjà le choix de l'événement déclencheur ne semble pas approprié ....

Bonjour Gipn, Bbil, bonjour le forum,

Comme le dit Bbil, c'est plutôt la procédure ComboBox1_change que tu devrais utiliser et, si tu n'as pas de doublons, te référer à la propriété ListIndex pour récupérer le texte. Comme visiblement tu commences à ligne 2 ça devrait donner un code du style :

Code:

---

1 2 3 4

Private Sub ComboBox1_Change() 'au changement dans la ComboBox1 'récupère dans le Label1 la valeur de la cellule ligne : ComboboBox1.ListIndex + 2, colonne : 4, de l'onglet "info produit" Me.Label1.Caption = Worksheets("info produit").Cells(ComboBox1.ListIndex + 2, 4).Value End Sub

---

Salut, à consulter Utiliser les UserForm en VBA Excel et Utiliser les contrôles dans un UserForm, en VBA Excel