Autres Combobox multiples dans un userform

[FOUQUET Yves]

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").

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

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.

 

[herve62]

Bonjour
Vu que pas de fichier ......pas de test !
Est ce que en passant par WIth worksheets ...... au lieu de .select ce ne serait pas mieux ?