Collection Item et Valeur

je ne comprend pas ce que tu viens de dire

tu as un message d'erreur en lançant mon code ? il dis quoi exactement ?

Non aucun message d'erreur...

En pas à pas, il passe la boucle "For each" sans rien faire.

Pour le .keys, je ne connaissais pas

Mais j'ai mis mon code complet, test et tu verras..

Pour info, je souhaite compter le nombre de fois un lieu, c ce qui déterminera plus loin dans le procédure le nombre de requête à faire par lieu.
seb

Ahhhhh j'ai encore fait le boulet.

trois choses à corriger, deux de ma faute et une de la tienne :

- ne déclare pas elt en Object. t'as même pas besoin de la déclarer cette variable
- j'ai inversé le test de ma conditionnelle :

Code:

---

1 2 3 4 5

If Collect.Exists(T) = True Then Collect(T) = Collect(T) + 1 Else Collect.Add T, 1 End If

---

c'est True et pas False


- pour boucler correctement sur tes éléments :

Code:

---

1 2 3

For Each elt In Collect.Keys MsgBox elt & " à été trouvé : " & Collect(elt) & " fois " Next elt

---

et j'obtiens

Citation:

---

chantilly à été trouvé : 9 fois
dax à été trouvé : 8 fois
vichy à été trouvé : 7 fois
nancy à été trouvé : 9 fois

---

(on passera sous silence la faute d'orthographe : "a" au lieu de "à")

Ok pour mon erreur, mais j'aimerai bien être un BOULET comme toi et qui gère aussi bien le VBA :P

Je suis obligé de déclarer car

Code:

---

Option Explicit

---

Donc comment puis-je le déclarer?

Code:

---

Dim elt as object

---

ne fonctionne pas

Code:

---

dim elt as variant

---

C'est bon ça fonctionne

Seb

Code:

---

Dim Elt

---

laisse à VBA le soin d'affecter le type

En Variant....c'est bon