XL 2010 ComboBox muette[Résolu]

Toubabou · 9 Mai 2020

Bonjour à tous,
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

cp4 · 9 Mai 2020

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 · 9 Mai 2020

cp4 à dit:
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

XL 2010 ComboBox muette[Résolu]

Toubabou

XLDnaute Impliqué

cp4

XLDnaute Barbatruc

Toubabou

XLDnaute Impliqué

Discussions similaires