XL 2010 Ajout clé dictionary

[vgendron]

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..

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

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é" ??

 

[dysorthographie]

Bonjour,
En fait un dictionnarry stock en terme de clé et de valeurs des objets !
Dans ton premier cas la clé est un range!

dico.add range("A1"),range("A1")

Dans cet exemple la clé comme la valeur sont des range
Ce qui signifie que range("A2") n'existe pas !

dico.add range("A1").value,range("A1").Value

Ce qui signifie que range("A2").value peut exister !

Écrire ça Clé=.range("A" &i) revient part défaut à écrire ça Clé=.range("A" &i).Value

 

[vgendron]

Hello Dyso... (trop long à écrire :-D)
merci pour l'explication: c'est clair et ca va m'éviter nombre de variables intermédiaires :-D