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