Bonjour à tous du forum,
j'ai un Userform avec 2 listbox. En sélectionant un critère(une langue) de listbox1 que les données respectives sont mises dans l'autre listbox4.
J'utilise le code suivante :
ListBox4.Enabled = False
ListBox4.Locked = False
If ListBox4.Value = "english" Then
ListBox4.RowSource = "ref.!H2:H" & Sheets("ref.").Range("H65536").End(xlUp).Row
ElseIf ListBox4.Value = "german" Then
ListBox4.RowSource = "ref.!I2:I" & Sheets("ref.").Range("I65536").End(xlUp).Row
End If
J'ai recherché d'astuces sur ce forum, mais ne pouvant pas utiliser les codes vba, comme le critère de sélection avec des variables est différent.
D'ailleurs avec les variables je ne me retrouve pas, ne sait pas comment utiliser le code vba.
ci-joint fichier explicite,
j'ai un Userform avec 2 listbox. En sélectionant un critère(une langue) de listbox1 que les données respectives sont mises dans l'autre listbox4.
J'utilise le code suivante :
ListBox4.Enabled = False
ListBox4.Locked = False
If ListBox4.Value = "english" Then
ListBox4.RowSource = "ref.!H2:H" & Sheets("ref.").Range("H65536").End(xlUp).Row
ElseIf ListBox4.Value = "german" Then
ListBox4.RowSource = "ref.!I2:I" & Sheets("ref.").Range("I65536").End(xlUp).Row
End If
J'ai recherché d'astuces sur ce forum, mais ne pouvant pas utiliser les codes vba, comme le critère de sélection avec des variables est différent.
D'ailleurs avec les variables je ne me retrouve pas, ne sait pas comment utiliser le code vba.
ci-joint fichier explicite,
Pièces jointes
Dernière édition: