Inserer un "dico" dans une listbox multicolonne

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

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:

---

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:

---

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

---

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

voila

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:

---

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

---