UserForm, Combobox variable

Salut à tous !
Je commence à avoir de bonnes bases en VBA et je décide de me lancer dans les UserForm (1ère fois)!

Je souhaite afficher n combobox (n étant ma variable nb_fois) et n textbox

Pour n textbox j'utilise:

Code:

---

1 2 3 4 5 6 7 8 9

For i = 1 To nb_fois Set ctrl = Me.Controls.Add("Forms.TextBox.1") With ctrl .Height = 20 .Width = 100 .Left = 160 .Top = 15 + (i) * 30 End With Next

---

Pour afficher n combobox j'utilise le même type de code :

Code:

---

1 2 3 4 5 6 7 8 9

For i = 1 To nb_fois Set ctrl = Me.Controls.Add("Forms.ComboBox.1") With ctrl .Height = 20 .Width = 100 .Left = 30 .Top = 15 + (i) * 30 End With Next

---

ca fonctionne, mais je ne sais pas comment ajouter la liste de données pour les n combobox créés, comme on le ferait simplement avec un seul

Code:

---

1 2 3

For j = 1 To 5 ComboBox1.AddItem Cells(j, 1) Next

---

Je voudrais que mes n combobox comportent la même liste qui se trouve en A1:A5

Avez-vous la solution ?
Merci d'avance ;)!

Bonjour,

je te conseil d'aller voir cet excellent tuto : https://silkyroad.developpez.com/VBA...serForm/#LII-F

si ta plage est fixe regarde la propriété "RowSource"

Bonjour…

Un possibilité : en intercalant une ligne dans la partie liste déroulante (ComboBox)

Code:

---

1 2 3 4

... .Top = 15 + i * 30 .List = Feuil1.Range("A1:A5").Value ‘1 ou autre pour la feuille contenant la plage End With

---