Discussion :

[gipn14]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

Bonjour,

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

[Thautheme]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kiki29]

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