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 37 38
| Private Sub ColorMyDataGrid()
'Couleur des Priorité
For i As Integer = 0 To Me.MyDataGridViewNew.Rows.Count - 1
If CType(Me.MyDataGridViewNew.Rows(i).Cells.Item(1).Value, Integer) <> CType(DatePart(DateInterval.WeekOfYear, Date.Today), Integer) And Me.MyDataGridViewNew.Rows(i).Cells.Item(0).Value.ToString <> "TER" And Me.MyDataGridViewNew.Rows(i).Cells.Item(0).Value.ToString <> "ANN" And Me.MyDataGridViewNew.Rows(i).Cells.Item(0).Value.ToString <> "RET" Then
If CType(Me.MyDataGridViewNew.Rows(i).Cells.Item(1).Value, Integer) = CType(DatePart(DateInterval.WeekOfYear, Date.Today), Integer) - 1 Then
Me.MyDataGridViewNew.Item(0, i).Style.BackColor = Color.Green
ElseIf CType(Me.MyDataGridViewNew.Rows(i).Cells.Item(1).Value, Integer) = CType(DatePart(DateInterval.WeekOfYear, Date.Today), Integer) - 2 Then
Me.MyDataGridViewNew.Item(0, i).Style.BackColor = Color.Orange
ElseIf CType(Me.MyDataGridViewNew.Rows(i).Cells.Item(1).Value, Integer) <= CType(DatePart(DateInterval.WeekOfYear, Date.Today), Integer) - 3 Then
Me.MyDataGridViewNew.Item(0, i).Style.BackColor = Color.Red
End If
End If
Select Case CStr(Me.MyDataGridViewNew.Rows(i).Cells.Item(0).Value)
Case "ANN"
Me.MyDataGridViewNew.Rows(i).DefaultCellStyle.BackColor = Color.Black
Me.MyDataGridViewNew.Rows(i).DefaultCellStyle.ForeColor = Color.White
Me.MyDataGridViewNew.Rows(i).DefaultCellStyle.Font = New Font(Me.MyDataGridViewNew.Font, FontStyle.Strikeout)
Me.MyDataGridViewNew.Item(0, i).Value = "ANNULE"
Case "TER"
Me.MyDataGridViewNew.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue
Me.MyDataGridViewNew.Item(0, i).Value = "TERMINE"
Case "RET"
Me.MyDataGridViewNew.Rows(i).DefaultCellStyle.BackColor = Color.Yellow
Me.MyDataGridViewNew.Item(0, i).Value = "RETOUR"
Case "URG"
Me.MyDataGridViewNew.Rows(i).DefaultCellStyle.BackColor = Color.OrangeRed
Me.MyDataGridViewNew.Item(0, i).Value = "URGENT"
Case "SFX"
Me.MyDataGridViewNew.Rows(i).DefaultCellStyle.BackColor = Color.GreenYellow
Me.MyDataGridViewNew.Item(0, i).Value = "SEM FIXE"
Case "ATT"
Me.MyDataGridViewNew.Item(0, i).Value = "EN ATTENTE"
Case "ENC"
Me.MyDataGridViewNew.Rows(i).DefaultCellStyle.Font = New Font(Me.MyDataGridViewNew.Font, FontStyle.Italic)
Me.MyDataGridViewNew.Item(0, i).Value = "EN COURS"
End Select
Next
End Sub |
Partager