affecter valeur d'une collection à une variable

Bonjour j'ai le code suivant

Code:

---

1 2 3 4 5 6 7 8 9

Set Liste = CreateObject("Scripting.Dictionary") Sheet1.Select For Each c In Range([A1], [A20].End(xlUp)) If Not Liste.Exists(c.Value) And c.Value <> "" Then Liste.Add c.Value, c.Value Next c     a = Liste.items(1) b = Liste.items(2)

---

Ce que je cherche à faire c'est récupérer dans une plage de donnée A1 à A20 la valeur des cellules et placer ceci dans une collection et je voudrais ensuite pouvoir affecter les valeurs de la collection à des variables. Mais je ne sais pas comment lui dire par exemple que la variable a prend la première valeur de la collection, la variable b la deuxième valeur. Ce que j'ai essayé ci dessus ne fonctionne pas. Savez vous comment faire cette manip?

Merci a vous

Bonjour,

Tu as essayé en passant par une variable intermédiaire:

Code:

---

1 2 3 4

dim temp as Variant temp = Liste.items a = temp(1)...

---

mais ce que tu as ecrit me semble correct.

Cordialement.