bonjour à tous,
nouveau sur ce forum et en VBA, je cherche une fonction me permettant de retrouver le plus petit nombre d'un tableau, au préalable trié.
objectif : générer un planning automatiquement

Je m'explique :
**phase 1 : le tri : je récupère le nom des personnes et le nombre de fois où ils sont présent dans le planning.
ca...c'est bon : a la fin j'ai bien mon tableau avec (toto, 0) (tutu,0) (tata,1)

**phase 2 : l'équilibrage : je souhaiterai équilibrer les présences de chacun (pour pas que toto apparaisse 5 fois sur le planning et tutu 0 fois par exemple)
c'est la que je bloque ! quand j'appuie sur mon bouton "générer mon planning", je vois les noms qui s'inscrive mais a la fin de ma boucle il n’écris personne !
voici mon code (peut être pas adapté vu mes faibles connaissances en VBA....) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
  'on fait une reccherche dans notre tableau de niveau 1 pour comparer le plus petit nombre de départ
            For m = 0 To lignes_tab_niveau1
                grade_Compare = tab_niveau1(m, 0)
                nom_Compare = tab_niveau1(m, 1)
                nbstats_Compare = tab_niveau1(m, 2)
 
 
                'on recupere le 1er de notre tableau pour comparer
                premier = tab_niveau1(0, 2)
 
                If nbstats_Compare < premier Then
                    premier = nbstats_Compare
                    grade_Recup = grade_Compare
                    nom_Recup = nom_Compare
 
                End If
                'on écris le résultat récupéré
                espace = "          "
                compil_Recup = grade_Recup + espace + nom_Recup
                'variable J étant une boucle supérieure pour les colonnes
                Sheets("planning").Cells(15, J).Value = compil_Recup
 
            Next m
n'hésitez pas a me demander plus de précision si ma demande n'est pas assez claire....
d'avance merci pour votre aide précieuse !

bonne journée