établir un planning intelligent

Que veux-tu exactement ?

Tu recherches de l'aide pour programmer ton planning ?

Tu recherches quelqu'un pour le programmer ?

Non je cherche une méthode pour pouvoir distribué d'un manière uniforme mes atelier sur le planning d'une semaine pour la programmation je m'en occupe.

Ok

il faut que tu explique davantage, car là c'est pas clair du tout.

distribué d'une manière uniforme ? cad ?

si tu veux on part sur discution instantané ? gmail skype msn ?

mon planning est du samedi au jeudi un une séance a 10h00 une autre a 14h00

et j'ai 12 ateliers différents, on peut avoir un atelier qui n'est pas programmé pour cette semaine comme il peut l'être n fois, et s'est la même chose pour tous les atelier.

voila un exemple :

"10" séances pour l'ateliers "AT01",
"5" séances pour l'ateliers "AT02",
"1" une séance pour l'atelier "AT03"
et "20" séances pour l'ateliers "AT12".

se qui fais 36 séances pour la semaine

je cherche un algorithme a implémenté de telle manière a ne pas avoir 10 séance du même atelier ensuite 20 séance d'un autre puis 5 d'un autre... etc.

Merci

Bonjour,

une proposition avec répartition aléatoire :

Sub repartition()
    Dim ateliers(36) As String, lig As Long, col As Long
    Dim nb As Long, cpt As Long, tmp As String, i As Long
    'recup ateliers
    For lig = 2 To 13
        If Cells(lig, 2) > 0 Then
            For nb = 1 To Cells(lig, 2)
                cpt = cpt + 1
                ateliers(cpt) = Cells(lig, 1)
            Next nb
        End If
    Next lig
    ' mélanger
    Randomize
    For cpt = 1 To 36
        i = Int(Rnd() * 36 + 1)
        tmp = ateliers(cpt)
        ateliers(cpt) = ateliers(i)
        ateliers(i) = tmp
    Next cpt
    ' remplir
    cpt = 0
    For lig = 2 To 7
        For col = 6 To 11
            cpt = cpt + 1
            Cells(lig, col) = ateliers(cpt)
        Next col
    Next lig
End Sub

fichier exemple

eric