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").
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
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.
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.ValueMais 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.ValueJ'espère que votre science va m'éclairer.
Merci.
Dernière édition: