Discussion :

[JulienLeno]

Bonjour j'ai le code suivant

Code :

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

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

[issoram]

Bonjour,

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

Code :

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

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

mais ce que tu as ecrit me semble correct.

Cordialement.