Problème de lecture d'un dictionnaire

Version imprimable

Bonjour,

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

Code:

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

Code:

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

26/04/2016, 17h05
sebfch

Merci rdurupt pour ta rapidité ;)
26/04/2016, 18h42
eriiic

Bonjour,

Au passage c'est MsgBox mydico.Items(i).
avec un s
eric
26/04/2016, 19h03
Invité

tu as raison, mais comme je fais toujours comme ça, alors personnellement j'ai pas fait gaffe
27/04/2016, 08h24
sebfch

Bonjour,
ça change quoi avec un "s" au final ?
27/04/2016, 08h42
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!

Citation:

Envoyé par eriiic

Bonjour,

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

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:

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

27/04/2016, 09h02
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 ;)