initialiser listbox avec 2 colonnes

**lilly91** · 20/11/2009, 16h40

Bonjour,
J'aimerais savoir comment remplir une listBox de 2 colonnes.
J'ai bien compris comment faire pour une seule colonne mais alors pour 2 j'ai beau fouiller je ne comprends vraiment pas.
Ci-dessous mon code, qui ne fonctionne pas bien évidemment, c'est repris de l'aide d'excel avec petit changement pour que ce soit en rapport avec ce que je souhaite faire.
Si quelqu'un peut m'expliquer pourquoi ça ne marche pas celà m'arrangerais bien.
merci d'avance

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
 
Private Sub UserForm_Initialize()
    Dim i As Single
 
    UserForm1.ListBox1.ColumnCount = 3
'This list box contains 3 data columns
 
    For i = 0 To 5
        UserForm1.ListBox1.List(i, 0) = i
        UserForm1.ListBox1.List(i, 1) = Rnd
        UserForm1.ListBox1.List(i, 2) = Rnd
    Next i
 
 
End Sub

**ucfoutu** · 20/11/2009, 17h16

Bonjour,

tu ne peux modifier des colonnes d'un article encore inexistant !

Code :

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

1
2
3
4
5
6
For i = 0 To 5
        ListBox1.AddItem '  <<<<=== nécessaire ....
        ListBox1.List(i, 0) = i
        ListBox1.List(i, 1) = Rnd
        ListBox1.List(i, 2) = Rnd
    Next i

**lilly91** · 20/11/2009, 18h15

Merci pour ta réponse rapide, malgrès qu'elle ne m'enchante pas trop...
Donc si je comprends bien, il y a pas de moyens d'ajouter a une liste de plusieurs colonnes des éléments un à un?
Je suis obligé de créer un tableau d'abord et ensuite de l'ajouter entier a la liste?

**ucfoutu** · 20/11/2009, 18h44

Envoyé par lilly91

Donc si je comprends bien, il y a pas de moyens d'ajouter a une liste de plusieurs colonnes des éléments un à un?
Je suis obligé de créer un tableau d'abord et ensuite de l'ajouter entier a la liste?

Cà, alors ...!
Réponse à ce que j'ai mis en rouge : et que fait donc, selon toi, l'exemple que je t'ai donné, sinon ajouter un à un ?

Réponse à ce que j'ai mis en bleu : où vois-tu un tableau ou la nécessité d'en créer un ?

Bon ...
allons-y d'un autre exemple :

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
 UserForm1.ListBox1.ColumnCount = 3
        Dim toto As Integer
        ListBox1.AddItem ' il nous faut bien créer l'article, avant de remplir ses colonnes
        toto = ListBox1.ListCount - 1
        ListBox1.List(toto, 0) = "bonjour"
        ListBox1.List(toto, 1) = "comment vas-tu ?"
        ListBox1.List(toto, 2) = "moi ? bien. Et toi ?"
        MsgBox "regarde ta listbox, puis clique et regarde à nouveau"
        ListBox1.List(toto, 1) = "How are you ?" 'ici on se contente de modifier ! pas de AddItem dans ce cas
        MsgBox "regarde ta listbox, puis clique et regarde à nouveau"
        ListBox1.AddItem 'on crée unn nouvel article, maintenant, puis on s'occupe de ses colonnes 
        toto = ListBox1.ListCount - 1
        ListBox1.List(toto, 0) = "Hola"
        ListBox1.List(toto, 1) = "como estas ?"
        ListBox1.List(toto, 2) = "muy bien. Qué tal contigo ?"