fonction Scripting.Dictionary

Sub test()
Dim a, d, i 'Crée des variables
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athènes" 'Ajoute des clés et des éléments.
d.Add "c", "Le Caire"
d.Add "b", "Belgrade"
a = d.keys 'Obtient les éléments
' classement des clés
For n = 1 To UBound(a)
 For m = n + 1 To UBound(a)
   If a(m) < a(n) Then
   temp = a(m)
   a(m) = a(n)
   a(n) = temp
   End If
 Next m
Next n
'Affichage
For i = 0 To d.Count - 1 'Effectue une itération sur le tableau
MsgBox (d(a(i))) 'Affiche un élément
Next
End Sub

a=dico1.keys
b=dico1.items
c=dico2.items
for n=lbound(a) to ubound(a)
 sheets("RESULTAT").range("A" & n+2)=a(n)
 sheets("RESULTAT").range("B" & n+2)=b(n)
 sheets("RESULTAT").range("C" & n+2)=c(n)
next

Private Sub CommandButton1_Click()
Dim i&, T As Variant, Dico As Object
Set Dico = CreateObject("Scripting.dictionary")
With Sheets("Feuil1")
    T = .Range(.Cells(1, 1), .Cells(.Rows.Count, 7).End(3))
End With
For i = LBound(T, 1) To UBound(T, 1)
    Dico(T(i, 1)) = Array(T(i, 1), T(i, 3), T(i, 6))
Next i
Sheets("Feuil1").Cells(1, 12).Resize(Dico.Count, 3) = Application.Index(Dico.items, , 0)
End Sub

Sub ListeSansDoublonsDicoTrié()
  Set d1 = New Dictionnaire
  a = Range("A2:B" & [A65000].End(xlUp).Row)
  For i = 1 To UBound(a)
    d1.ajout a(i, 1), a(i, 2)
  Next i
  '--- résultat dans le tableur
  Range("d2").Resize(d1.Count, 2) = d1.Tri
  '-- résultat dans un tableau
  a = d1.Tri
End Sub