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 ?

[Invité]

bonjour,
vue que je fait toujours comme dans la solution que je tes proposé, je ne savais pas!

maintenant que j'ai testé ça change tout! j'ai un message d'erreur ,donc reste sur ce que j'ai dit au premier poste!

Bonjour,

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

[pijaku]

Bonjour,

Un poil trop tard...
Un objet dictionary étant très proche d'une Collection (possibilité de boucler avec For Each...), voici comment je procède habituellement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub testdico()
Dim dico As Object, c As Range, Cle As Variant
    'Création Objet
    Set dico = CreateObject("Scripting.Dictionary")
    'Remplissage
    For Each c In Range("A1:A4")
        dico(c.Value) = (c.Offset(, 2).Value)
    Next c
    'Restitution
    For Each Cle In dico.Keys
        Debug.Print Cle & " <==> " & dico(Cle)
    Next Cle
End Sub

[sebfch]

J'ai testé avec le "s" j'ai une erreur aussi (property set/get ....)

Dans vos 2 cas, vous utilisez les clés du dictionnaire. Je pense que c'est une bonne solution.
Au moins, elle fonctionne.

Merci