alimenter une listbox

Bonjour,
Je cale sur un truc bizarre. J'ai créé dans un userform un certain nombre de listbox, nombre variable. je cherche ensuite à alimenter ces listbox, et le code ci-dessous ne me donne rien, Il me dit qu'un objet est requis dès qu'on arrive à la méthode AddItem et pourtant, ma listbox est bien nommée. Je suis sûr que c'est un truc basique, mais je ne vois pas lequel.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Set obj = Me.Controls.Add("forms.ListBox.1") With obj .Left = 370 .Top = 10 + (20 * debut) .Width = 30 End With ListBox1.AddItem "1" ListBox1.AddItem "2" ListBox1.AddItem "3" ListBox1.AddItem "4" ListBox1.AddItem "5" ListBox1.Name = "liste" & debut
merci de votre aide

Citation:

Envoyé par koeuf

Bonjour,

Il vous faut alimenter à partir de l'objet obj comme dans cet exemple :

Code:

1
2
3
4
5
6
7
8
9
10
 
           MesValeurs = Array("1", "2", "3", "4", "5")
           Set Obj = Me.Controls.Add("Forms.ListBox.1", "Liste" & Debut, True)
           With Obj
                 .Left = 370
                 .Top = 10 + (20 * Debut)
                 .Width = 30
                 .List = MesValeurs
            End With
            Set Obj = Nothing

Vous pouvez également modifier la liste après coup :

Code:

1
2
3
4
5
6
 
            For Each Obj In Me.Controls
                If Obj.Name = "Liste1" Then
                   Obj.Object.AddItem "6"
                End If
            Next Obj

Merci ! Je vais regarder attentivement cette fonction array sur le cours de SilkyRoad

bonne journée !