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

 

[ChTi160]

Bonjour Toubabou
Qu'entends tu par Muette ?
ne pourrais tu mettre un fichier anonymisé pour aider ?Lol
jean marie
prenez Soin de Vous

 

[laurent950]

Bonjour,

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

 

[Toubabou]

Je voulais dire qu'elle ne se remplie pas

 

[cp4]

Bonjour Toubabou,

Si elle reste muette c'est qu'elle n'est pas alimenter. La procédure que tu as publié n'alimente pas la combobox. Elle alimente un label quand la combobox change.
Si tu veux dire que rien ne se passe au niveau du label lors des changements de valeurs de la combobox, c'est que ta cherche v ne trouve pas de correspondance.

Bonne journée.

@laurent950 bonjour😉

 

[Toubabou]

Je vous envois un fichier
https://www.transfernow.net/JFtqgr052020

 

[cp4]

De quel userform s'agit-il? Source d'alimentation de la combobox?

 

[Toubabou]

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

Non ne fonctionne toujours pas

De quel userform s'agit-il? Source d'alimentation de la combobox?

Oups pardon , il s'agit de l'UserForm "Lexique"

 

[Toubabou]

De quel userform s'agit-il? Source d'alimentation de la combobox?

Oups pardon , il s'agit de l'UserForm "Lexique"

 

[cp4]

Oups pardon , il s'agit de l'UserForm "Lexique"

Rajoute cette ligne à la fin de la procédure userform_initialize, juste avant End Sub

Me.ComboBox1.List = Sheets("lexique").Range("A2:A" & Sheets("lexique").Range("A2").End(xlDown).Row).Value

 

[Toubabou]

Rajoute cette ligne à la fin de la procédure userform_initialize, juste avant End Sub

Me.ComboBox1.List = Sheets("lexique").Range("A2:A" & Sheets("lexique").Range("A2").End(xlDown).Row).Value

J'ai une erreur de débogage:

 

[cp4]

J'ai une erreur de débogage:
Regarde la pièce jointe 1066412

He, oui ça c'est ta fonction.
Ton souci était d'alimenter la combobox. Je suppose que tu veux prendre dans le label la correspondance en colonne b?

 

[Toubabou]

He, oui ça c'est ta fonction.
Ton souci était d'alimenter la combobox. Je suppose que tu veux prendre dans le label la correspondance en colonne b?

Oui oui tout à fait

 

[cp4]

Remplace ces 2 procédures dans ton userform et assure-toi que la déclaration de Choix soit en tête de module.

Dim choix
Private Sub UserForm_Initialize()

   choix = Sheets("lexique").Range("A2:B" & Sheets("lexique").Range("A2").End(xlDown).Row).Value

   With Lexique1
      .StartUpPosition = 0
      .Top = 20
      .Left = 300
      .Height = 266
   End With

   TextBox1.Text = "Entrez le mot à définir": TextBox1.ForeColor = RGB(200, 200, 200)
   TextBox2.Text = "Entrez la définition": TextBox2.ForeColor = RGB(200, 200, 200)
   Me.ComboBox1.ColumnCount = 2
   Me.ComboBox1.ColumnWidths = "30;0"
   Me.ComboBox1.List = choix
End Sub

Private Sub ComboBox1_Change()
   With Label1
      .Caption = Me.ComboBox1.Column(1)
      .TextAlign = fmTextAlignCenter
      .WordWrap = True
   End With
End Sub

 

[Toubabou]

Remplace ces 2 procédures dans ton userform et assure-toi que la déclaration de Choix soit en tête de module.

Dim choix
Private Sub UserForm_Initialize()

   choix = Sheets("lexique").Range("A2:B" & Sheets("lexique").Range("A2").End(xlDown).Row).Value

   With Lexique1
      .StartUpPosition = 0
      .Top = 20
      .Left = 300
      .Height = 266
   End With

   TextBox1.Text = "Entrez le mot à définir": TextBox1.ForeColor = RGB(200, 200, 200)
   TextBox2.Text = "Entrez la définition": TextBox2.ForeColor = RGB(200, 200, 200)
   Me.ComboBox1.ColumnCount = 2
   Me.ComboBox1.ColumnWidths = "30;0"
   Me.ComboBox1.List = choix
End Sub

Private Sub ComboBox1_Change()
   With Label1
      .Caption = Me.ComboBox1.Column(1)
      .TextAlign = fmTextAlignCenter
      .WordWrap = True
   End With
End Sub

Un Grand merci CP4, cela fonctionne Tip Top
Merci beaucoup
Toubabou