Discussion :

[koeuf]

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 :

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

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

[Invité]

Bonjour,

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

Code :

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

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 :

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

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

[koeuf]

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

bonne journée !