établir un planning intelligent Fermé

Question

Bonjour, 


J'organise des ateliers,

J'ai 12 ateliers de AT01 à AT12;

J'ai trois salles et j'organise deux ateliers par salle et par jour du Samedi au jeudi se qui me fait 36 ateliers par semaine,

je peux par exemple avoir pour une semaine "10" ateliers "AT01", "5" ateliers "AT02", "1" atelier "AT03"et "20" ateliers "AT12".

Je cherche a faire un programme pour avoir une distribution uniforme des ateliers  sur mon planning de la semaine qui comporte 36 séances 6 par jour 2 par salle un a 10H00 et le second 14H00.

Merci pour votre aide;

Configuration: Windows 7 / Chrome 21.0.1180.83

maka54 · Answer

Que veux-tu exactement ?

Tu recherches de l'aide pour programmer ton planning ?

Tu recherches quelqu'un pour le programmer ?

lyessou777 · Answer

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.

maka54 · Answer

Ok

 il faut que tu explique davantage, car là c'est pas clair du tout.

distribué d'une manière uniforme ? cad ?

lyessou777 · Answer

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

lyessou777 · Answer

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

eriiic · Answer

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

établir un planning intelligent

6 réponses

Discussions similaires