Tri d'un tableau de valeurs - VBA

BONJOUR,

mon code distribue les permanences du samedi en fonction des disponibilités à travers un tirage aléatoire; je veux changer le tirage aléa par un tirage en fonction de la moyenne la plus basse d'équipe (ville=équipe);

j'ai crée 3 dictionnaires pour stocker la liste des :

-liste des employés dispo par ville

-liste des Nombres Permanences effectuées par les employés dispo par ville

- moyenne Nombres Permanences effectués par ville

je cherche à trier le tableau tabville selon les valeurs de la moyenne (moyenne par ville, 6 moyennes au total que j'ai stocké dans un dictionnaire)
' but : boucler sur les 3 1ère villes qui ont la moyenne la plus basse
' Puis dans la boucle "For i = 1 To 3" if i = 1 Alors sélectionner les 3 employés qui ont le moins de perm, if i > 1 alors sélectionner les 2 employés qui ont le moins de perm (quota 3,2,2)

j'espère que c claire , sinon n'hésitez pas à me poser des qst :)

voilà le code que je dois l'adapter à cette situation :

Dim iTable As ListObject
Dim iColumn As Range
Set iTable = ("dict_dispo(ville)")
Set iColumn = ("dict_MoyParVille")
With iTable.Sort
.SortFields.Clear
.SortFields.Add key:=iColumn, SortOn:=xlSortOnValues, Order:=xlDescending
.Header = xlNo
.Apply

Hello,

T'as un exemple de fichier ?

@+

re bonjour

module 5 : code initial

module 1 : code avec des modifications

Bonjour,

j'ai avancé dans mon code , mais il me reste la dernière étape de faire le tirage en fonction de nombre de permanence de chaque employé,

voilà mon fichier actualisé