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
| For i = 1 To 7
DateC = DateAdd("d", (i - 1), DateDebut)
'If Not (EstWeek(DateC)) Or EstFerie(DateC) Then
'goHeader.DrawRect 1, i, 1, i, 16772351, vbMagenta, 1
'goHeader.DrawRect 2, i, 2, i, 16772351, vbMagenta, 1
'goPlanning.ColorCol i, 16772351
goHeader.DrawRect 1, i, 1, i, vbWhite, vbMagenta, 1
goHeader.DrawRect 2, i, 2, i, vbWhite, vbMagenta, 1
goPlanning.ColorCol i, vbWhite
'ElseIf EstConge(DateC) Then
'goHeader.DrawRect 1, i, 1, i, 12706047, vbMagenta, 1
'goHeader.DrawRect 2, i, 2, i, 12706047, vbMagenta, 1
'goPlanning.ColorCol i, 12706047
'Else ' Sinon colorie les week-end en rouge sur les en-têtes de colonnes.
'goHeader.DrawRect 1, i, 1, i, -2147483633, vbMagenta, 1
'goHeader.DrawRect 2, i, 2, i, vbWhite, vbMagenta, 1
'End If
'==> ICI
goHeader.DrawText 1, i, 1, i, Format(DateC, "ddd dd mmm yyyy"), 12, 1, 1, vbBlack, True
Next i
goHeader.Refresh |
Partager