Bonjour à tous,
Pourriez-vous me dire pouruoi ma ComboBox est muette?
Merci par avance
Pourriez-vous me dire pouruoi ma ComboBox est muette?
VB:
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