Discussion :

[joe.levrai]

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 ?

[Sebphyto]

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

[joe.levrai]

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 :

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

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 :

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

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

et j'obtiens

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 "à")

[Sebphyto]

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

Je suis obligé de déclarer car

Code :

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

Option Explicit

Donc comment puis-je le déclarer?

Code :

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

Dim elt as object

ne fonctionne pas

Code :

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

dim elt as variant

C'est bon ça fonctionne

Seb

[joe.levrai]

Code :

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

Dim Elt

laisse à VBA le soin d'affecter le type

[Sebphyto]

En Variant....c'est bon