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

ChTi160 · 9 Mai 2020

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

laurent950 · 9 Mai 2020

Bonjour,

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

Toubabou · 9 Mai 2020

Je voulais dire qu'elle ne se remplie pas

cp4 · 9 Mai 2020

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

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

cp4 · 9 Mai 2020

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

Toubabou · 9 Mai 2020

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

Non ne fonctionne toujours pas

cp4 à dit:
De quel userform s'agit-il? Source d'alimentation de la combobox?

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

Toubabou · 9 Mai 2020

cp4 à dit:
De quel userform s'agit-il? Source d'alimentation de la combobox?

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

cp4 · 9 Mai 2020

Toubabou à dit:
Oups pardon , il s'agit de l'UserForm "Lexique"

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

VB:

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

Toubabou · 9 Mai 2020

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

VB:

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

J'ai une erreur de débogage:

cp4 · 9 Mai 2020

Toubabou à dit:
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 · 9 Mai 2020

cp4 à dit:
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 · 9 Mai 2020

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

VB:

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

cp4 à dit:

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

VB:

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

XL 2010 ComboBox muette[Résolu]

Toubabou

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

laurent950

XLDnaute Accro

Toubabou

XLDnaute Impliqué

cp4

XLDnaute Barbatruc

Toubabou

XLDnaute Impliqué

cp4

XLDnaute Barbatruc

Toubabou

XLDnaute Impliqué

Toubabou

XLDnaute Impliqué

cp4

XLDnaute Barbatruc

Toubabou

XLDnaute Impliqué

cp4

XLDnaute Barbatruc

Toubabou

XLDnaute Impliqué

cp4

XLDnaute Barbatruc

Toubabou

XLDnaute Impliqué

Discussions similaires