trier aléatoirement mon dictionnaire

[asta22]

je veux trier aléatoirement mon dictionnaire, voilà mon code

que dois-je faire ?

MON CODE :

Dim key2 As Variant, ArrayDict As Variant

'création array à partir du dict
k = 1
For Each key2 In dict
ArrayDict(k, 1) = key2
ArrayDict(k, 2) = dict(key2)
k = k + 1
Next key2

' vide le dict
dict.RemoveAll

'randomise array order
For i = 1 To k 'melanger les villes candidates
a1 = aleatoire(1, k)
a2 = aleatoire(1, k)
a = ArrayDict(a1, 1): ArrayDict(a1, 1) = ArrayDict(a2, 1) : ArrayDict(a2, 1) = a
a = ArrayDict(a1, 2) : ArrayDict(a1, 2) = ArrayDict(a2, 2) : ArrayDict(a2, 2) = a
Suivant i

'on a rempli le dict à partir du tableau
For i = 1 To UBound(ArrayDict)
dict(ArrayDict(k, 1)) = ArrayDict(k, 2)
Next i

Merci d'avance

 

[BSALV]

on met les "keys" et les "items" dans 2 arrays, puis on les ajoute dans un nouveau array avec 3 columns et dans la 3ième, c'est un random number. Puis on sort cette array dans un nouveau array et ...

     mykeys = dict.keys     'read the keys in an array
     myitems = dict.items     'same for the items
     ReDim arr(UBound(mykeys), 2)     'prepare a new array (as many rows as mykeys and 3 columns (starting with column 0)
     For i = 0 To UBound(mykeys)     'fill that array
          arr(i, 0) = mykeys(i)     'with the keys
          arr(i, 1) = myitems(i)     'with the items
          arr(i, 2) = Rnd     'with a random number
     Next

     arr1 = Application.Sort(arr, 3, 1)     'sort that array with that random number ascending

     Range("D1").Resize(UBound(arr1), 2).Value = arr1     'write the result (0nly the first 2 columns) to the sheet

 

[asta22]

re-bonjour,
merci pour ta réponse

 

[BSALV]

effacer !
je pensais, que j'avait fait un erreur, non ...

 

[asta22]

???

 

[BSALV]

c'était rien, je voudrai effacer ma reaction, mais cela ne va pas ...