Autres Combobox multiples dans un userform

FOUQUET Yves

XLDnaute Occasionnel
Bonjour à toutes et tous,

J'arrive à positionner et garnir une Combobox1 dans un Userform1 sans problème.
Dans l'Userfiorm1 je remplis le Combobox1 avec des éléments du classeur "Donnees" et de la feuille "Effectif". Je veux utiliser et afficher deux colonnes pour chaque Combobox (nom et prénom pour "Effectif").

VB:
nomfichier = UserForm1.chemin2 & "\[B]Donnees.xlsm[/B]"          ' là ou se trouve mon classeur "Donnees"
Set Ws = Workbooks.Open(nomfichier).Sheets("[B]Effectif[/B]")     ' la feuille "Effectif" de ce classeur
Worksheets("Effectif").Select
Set Rng = Ws.Range("B2:C" & Ws.[B65000].End(xlUp).Row)
   Me.[B]ComboBox1[/B].ColumnCount = 2
   Me.ComboBox1.List = Rng.Value

Mais je n'arrive pas à positionner et remplir un second Combobox2 sur le même Userform1 à partir d'une autre feuille "Parametres" du même classeur.
J'utilise les mêmes ligne de code mais à chaque fois ça plante pour une erreur différente! Ou j'ai les mêmes données dans les deux Combobox.
Bref, je craque! Lol

Code:
nomfichier = UserForm1.chemin2 & "\Donnees.xlsm"
Set Ws = Workbooks.Open(nomfichier).Sheets("Effectif")
Worksheets("Effectif").Select
Set Rng = Ws.Range("B2:C" & Ws.[B65000].End(xlUp).Row)
   Me.ComboBox1.ColumnCount = 2
   Me.ComboBox1.List = Rng.Value
'------------------------------------------------------------------
Worksheets("Parametres").Select                                                 ' la feuille "Parametres" de ce même classeur
Set Rng = Ws.Range("S2:T" & Ws.[B65000].End(xlUp).Row)
   Me.ComboBox2.ColumnCount = 2
   Me.ComboBox2.List = Rng.Value
Je veux utiliser encore et afficher deux colonnes pour chaque Combobox (abréviation et libéllé pour "Parametres").
J'espère que votre science va m'éclairer.
Merci.
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
313 198
Messages
2 096 141
Membres
106 505
dernier inscrit
ngomez