1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Public Sub InitDiagrammeGantt()
'...
For i = 1 To (NbPeriodes)
DateC = DateAdd("d", (i - 1) * Periode, DateDebut)
If EstFerie(DateC) Then
obHeader.DrawEntete 1, i, 1, i, 11206655, 8421504, 1
'obDiagrammeGantt.ColorCol i, 11206655
ElseIf EstWeek(DateC) Then
' obHeader.DrawEntete 1, i, 1, i, 16757683, 8421504, 1
'obDiagrammeGantt.ColorCol i, vbWhite
Else ' Sinon colorie les week-end en rouge sur les en-têtes de colonnes.
obHeader.DrawEntete 1, i, 1, i, 16762623, 8421504, 1
'obDiagrammeGantt.ColorCol i, 16762623
End If
'...
next i
'...
End sub |
Partager