Itérer sur les dictionnaires VBA

[Clippy]

Comment itérer sur les éléments d’un dictionnaire (Dictionary) en VBA ?

[ayi]

Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")

' Ajouter des éléments
dict.Add "cle1", "valeur1"
dict.Add "cle2", "valeur2"

' Itérer sur les clés
Dim k As Variant
For Each k In dict.Keys
    Debug.Print k & " = " & dict(k)
Next k

' Itérer sur les valeurs
For Each v In dict.Items
    Debug.Print v
Next v