XL 2010 ComboBox muette[Résolu]

[Toubabou]

Bonjour à tous,
Pourriez-vous me dire pouruoi ma ComboBox est muette?

Private Sub ComboBox1_Change()

Dim def As String

If ComboBox1 <> "" Then

def = Application.VLookup(ComboBox1, Range("Lexique"), 2, 0)

With Label1

    .Caption = def
    .TextAlign = fmTextAlignCenter
    .WordWrap = True

End With

Else

End If

End Sub

Merci par avance

 

[cp4]

Pour info, dans la combobox en fait, il y a les 2 données de la même ligne.
Cependant, tu n'en vois qu'une car la largeur de la 2ème colonne est nulle.
Dans UserForm_Initialize, tu trouveras ceci
Me.ComboBox1.ColumnWidths = "30;0"

Bon week-end.

 

[Toubabou]

Pour info, dans la combobox en fait, il y a les 2 données de la même ligne.
Cependant, tu n'en vois qu'une car la largeur de la 2ème colonne est nulle.
Dans UserForm_Initialize, tu trouveras ceci
Me.ComboBox1.ColumnWidths = "30;0"

Bon week-end.

Merci Bon WE