Discussion :

[sebfch]

Bonjour,

J'ai un problème, j'arrive pas à retrouver mes valeurs de mon dictionnaire

Code :

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

1
2
3
4
5
6
7
8
Set mydico = CreateObject("Scripting.Dictionary")
        Set f = Sheets("mafeuille")
        For Each c In Range(f.[A2], f.[A65000].End(xlUp))
            If c = var And c.Offset(, 1) = ValeurARetourner Then mydico(c.Offset(, 2).Value) = (c.Offset(, 2).Value)
        Next c
        For i = 0 To mydico.Count - 1
            MsgBox mydico.Item(i)
        Next i

le problème c'est que j'ai rien dans mon msgbox, il s'affiche le bon nombre de fois mais avec rien à l'intérieur

[Invité]

Code :

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

1
2
3
4
 K= mydico.keys
For i = 0 To mydico.Count - 1
            MsgBox mydico(k(i))
 Next i

[sebfch]

Merci rdurupt pour ta rapidité

[eriiic]

Bonjour,

Au passage c'est MsgBox mydico.Items(i).
avec un s
eric

[Invité]

tu as raison, mais comme je fais toujours comme ça, alors personnellement j'ai pas fait gaffe

[sebfch]

Bonjour,
ça change quoi avec un "s" au final ?