1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
' *******************************************************
'on positionne les we et jours feries
'calcul du nombre de collaborateurs
nbCollaborateur = 0
vl_ligne = 0
Cells(CST_LIGNE_DEB_COLLABORATEUR + vl_ligne, CST_COLONNE_COLLABORATEUR).Select
While (Selection <> Empty)
nbCollaborateur = nbCollaborateur + 1
vl_ligne = vl_ligne + 1
Cells(CST_LIGNE_DEB_COLLABORATEUR + vl_ligne, CST_COLONNE_COLLABORATEUR).Select
Wend
vl_colonne = 0
While ((vl_colonne + CST_COLONNE_DEB_CALENDRIER_JOUR) <= CST_COLONNE_FIN_CALENDRIER_JOUR)
'on selectionne les jours
Cells(CST_LIGNE_CALENDRIER_JOUR, CST_COLONNE_DEB_CALENDRIER_JOUR + vl_colonne).Select
' Si c'est un samedi ou un dimanche ou un jour ferie on rempli la colonne
If (Selection.Interior.Pattern = xlGray8) Then
Range(Cells(CST_LIGNE_DEB_COLLABORATEUR, CST_COLONNE_DEB_CALENDRIER_JOUR + vl_colonne), Cells(CST_LIGNE_DEB_COLLABORATEUR + nbCollaborateur - 1, CST_COLONNE_DEB_CALENDRIER_JOUR + vl_colonne)).Select
Selection.Interior.Pattern = xlGray8
End If
vl_colonne = vl_colonne + 1
Wend |