Discussion :

[Alange_44]

Bonjour

Je recherche un code permettant d'intégrer un "dico" perso dans une listbox multicolonne.

ex :
dico :
keys : "a" items "1"
keys : "ave" items "8"
keys : "dfe" items "7"
keys : "zea" items "5"
keys : "cde" items "9"

puis insérer ce dico dans une lisbox où dans la 1ère colonne, apparaissent les keys (ça je sais le faire), et dans la 2ème colonne, apparaissent les items (ça je sais pas le faire !!!).

Dans l'attente de vos réponses.

Cordialement

[patricktoulon]

Bonjour

en vba c'est sans interet pour toi car on ne peut pas ajouter une colonne
c'est a dire
faire
listbox1=dico. keys
et en suite faire listbox1.column(2) =dico.item

soit on ajoute ligne par ligne
soit

Code :

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

1
2
3
4
for i= 0 to 10
listbox.add "toto":listbox1.list(i,1)="truc"
etc.....
next

soit on intègre le tableau complet

Code :

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

1
2
tableau=range("A1:d10").value
listbox1.list=tableau

le dico étant finalement un tableau sans en être un

voila

[thebenoit59]

Bonjour Alange, bonjour Patrick.

Comme le dit Patrick, tu devras passer par un tableau.
Si tu souhaites tout de même utiliser ton dico tu peux faire ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
 
    ReDim Tabl(1 To d.Count, 2)
    a = d.keys
    b = d.items
    For i = 1 To d.Count
    Tabl(i, 0) = a(i - 1)
    Tabl(i, 1) = b(i - 1)
    Next i
    Me.ListBox1.List = Tabl