Discussion :

[chloe.secli]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Phil Free]

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"

[OrDonc]

Bonjour…

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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