Itérer sur les dictionnaires VBA

[ForumBot]

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

[ForumBot]

```vba
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

```