1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
|
Select Case ActiveSheet.Name
Case Is = "2018"
Set SelectionDate = ActiveSheet.Range("AC11:ACF11")
Case Is = "Février"
Set SelectionDate = ActiveSheet.Range("AC11:CE11")
Case Is = "Avril", "Juin", "Septembre", "Novembre"
Set SelectionDate = ActiveSheet.Range("AC11:CJ11")
Case Is = "Janvier", "Mars", "Mai", "Juillet", "Août", "Octobre", "Décembre"
Set SelectionDate = ActiveSheet.Range("AC11:CL11")
End Select
For Each Cellule In SelectionDate
Select Case Cellule.Value
Case Is = "DateFDV1", "DateFDV2", "DateFDV3"
Range(Cells(12, Cellule.Column), Cells(183, Cellule.Column)).Interior.Color = CouleurFDV
Case Is = "Date1", "Date2", "Date3", "Date4", "Date5", "Date6", "Date7", "Date8", "Date9", "Date10"
Range(Cells(12, Cellule.Column), Cells(183, Cellule.Column)).Interior.Color = CouleurFeries
Case Is = "DateVac1", "DateVac2", "DateVac3", "DateVac4", "DateVac5", "DateVac6", "DateVac7", "DateVac8", "DateVac9", "DateVac10", _
"DateVac11", "DateVac12", "DateVac13", "DateVac14", "DateVac15", "DateVac16", "DateVac17", "DateVac18", "DateVac19", "DateVac20", _
"DateVac21", "DateVac22", "DateVac23", "DateVac24", "DateVac25", "DateVac26", "DateVac27", "DateVac28", "DateVac29", "DateVac30", _
"DateVac31", "DateVac32", "DateVac33", "DateVac34", "DateVac35", "DateVac36", "DateVac37", "DateVac38", "DateVac39", "DateVac40", _
"DateVac41", "DateVac42", "DateVac43", "DateVac44", "DateVac45", "DateVac46", "DateVac47", "DateVac48", "DateVac49", "DateVac20", _
"DateVac51", "DateVac52", "DateVac53", "DateVac54", "DateVac55", "DateVac56", "DateVac57", "DateVac58", "DateVac59", "DateVac60", _
"DateVac61", "DateVac62", "DateVac63", "DateVac64", "DateVac65", "DateVac66", "DateVac67", "DateVac68", "DateVac69", "DateVac70", _
"DateVac71", "DateVac72", "DateVac73", "DateVac74", "DateVac75", "DateVac76", "DateVac77", "DateVac78", "DateVac78", "DateVac80", _
"DateVac81", "DateVac82", "DateVac83", "DateVac84", "DateVac85", "DateVac86" '"DateVac1" To "DateVac86"
Range(Cells(12, Cellule.Column), Cells(183, Cellule.Column)).Interior.Color = CouleurVac
End Select
If Weekday(Cellule, vbMonday) > 5 Then
Range(Cells(12, Cellule.Column), Cells(183, Cellule.Column)).Interior.Color = CouleurWE
End If
Next Cellule |
Partager