Bonjour,

J'ai un fichier planning avec les dates de l'année de J à CO
les dates de début de tâches de E12 à E(fin des tâches) et les dates de fin de tâches de F12 à F(fin des tâches).

Je veux que le fichier me colore en vert les cases comprises entre la date de début et la date de fin sans prendre en compte les samedi, dimanche et jour férié.
Puis je passe à la ligne suivante et ainsi de suite.

J'arrive à le faire sur une ligne mais je ne sais pas comment passer à la ligne suivante. (j'ai mis en noire les samedi, dimanche et jour férié)

pouvez vous m'aider ?

voila mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal target As Range)
 
For c = 10 To 50 '(50 pour le test mais j'irai ensuite jusqu'à la case qui contient 31/12/2018)
 
If Cells(3, c) >= Cells(12, 5) And Cells(3, c) <= Cells(12, 6) And Cells(12, c).Interior.Color <> RGB(0, 0, 0) Then
Cells(12, c).Interior.Color = RGB(0, 255, 0)
Else
If Cells(12, c).Interior.Color <> RGB(0, 0, 0) Then
 
Cells(12, c).Interior.Color = RGB(255, 255, 255)
Else
End If
End If
Next
 
End Sub


Merci !