Remplir planning

' Calcule la Ligne de la semaine de début

if SemD < 35 then Ligne = 3 + (52 - 35) + SemD else Ligne = 3 + (SemD -35) endif ' Boucles permettant de remplir les cases dans planning ' boucle par nbre de semaines for i = 1 to nbSem step 1 Colonne = 5 + (Jour * 18) + HD ' boucle par nbre de demies-heures for j = 1 to nbHi step 1 Feuilleplanning.getcellbyposition(Colonne,Ligne).cellbackcolor = RGB(R,G,B) Colonne = Colonne + 1 next j Ligne = Ligne + 1 next i

Laisser un commentaire