vgendron
XLDnaute Barbatruc
Bonjour à toutes et tous,
Je viens vers vous au sujet des dictionaires..
j'ai remarqué quelque chose qui me semble étrange... peut etre est ce normal..?
le code suivant ne fonctionne pas..
alors que celui ci fonctionne
Sauriez vous m'expliquer pourquoi je dois passer par la variable intermédiaire "Clé" ??
Je viens vers vous au sujet des dictionaires..
j'ai remarqué quelque chose qui me semble étrange... peut etre est ce normal..?
le code suivant ne fonctionne pas..
VB:
set dico =createobject("scripting.dictionary")
with activesheet
fin=.range("A" &.rows.count).end(xlup).row
for i = 1 to fin
if not dico.exists(.range("A" &i)) then dico.add .range("A" &i),i
next i
end with
alors que celui ci fonctionne
VB:
set dico =createobject("scripting.dictionary")
with activesheet
fin=.range("A" &.rows.count).end(xlup).row
for i = 1 to fin
Clé=.range("A" &i)
if not dico.exists(Clé) then dico.add Clé,i
next i
end with
Sauriez vous m'expliquer pourquoi je dois passer par la variable intermédiaire "Clé" ??