Bonjour a tous et toutes, j'aimerais ajouter une condition à une boucle pour colorer des jours sous conditions.
Sub test()
Dim r As Range, c As Range
Set r = Range(Range("A5"), Range("A5").End(xlDown))
For Each c In r
If Weekday(c) = 6 Or Weekday(c) = 7 Then
'If IsError(Application.Match(C, [Fériés], 0)) = 0 Then
c.Interior.ColorIndex = 3
End If
Next c
End Sub
j'aimerais ajouter les jours fériés "If IsError(Application.Match(C, [Fériés], 0)) = 0 Then".
Ce serais pour un planning avec un coloriage en colonne
Mais j'ai beau tester de plusieurs manière et je n'y arrive pas.
Voir le fichier joint.
Merci du coup de main.