initialiser listbox avec 2 colonnes

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:

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

Bonjour,

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

Code:

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

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?

Citation:

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 ? 8O
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:

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 ?"
Et ce n'est pas ma réponse, mais celle de VB ... ;)
Seuls les exemples sont miens !

Ha d'accord!!!
J'avais pas compris en effet, je pensais qu'il fallait rajouter quelque chose après addItem....
Ok super
merci beaucoup