Tout d'abord, merci pour vos réponses rapides.
Voila mes conditions, accrochez vous :
Je pose i dans les cellules pour indiquer une boucle (i varie de 202 à ...)
Si la cellule H,i est B : alors si I,i vaut 0 -> J,i de couleur orange
alors si I,i vaut 1 -> J,i de couleur rouge
alors si I,i vaut 2 -> J,i de couleur orange
alors si I,i vaut 3 -> J,i de couleur vert
Si la cellule H,i est N : alors si I,i vaut 0 -> J,i de couleur rouge
alors si I,i vaut 1 -> J,i de couleur rouge
alors si I,i vaut 2 -> J,i de couleur orange
alors si I,i vaut 3 -> J,i de couleur vert
Si la cellule H,i est N : alors si I,i vaut 0 -> J,i de couleur rouge
alors si I,i vaut 1 -> J,i de couleur rouge
alors si I,i vaut 2 -> J,i de couleur rouge
alors si I,i vaut 3 -> J,i de couleur vert
Voila toute mes conditions.
Et voila ce que G deja fait.
For i = 202 To 211
'Affichage de l'état d'avancement par code couleur
If Cells(i, 8) = 'B' Then
If Cells(i, 9) = '0' Then
Cells(i, 10).Interior.Color = RGB(215, 175, 45)
ElseIf Cells(i, 9).Value = '1' Then
Cells(i, 10).Interior.Color = RGB(255, 0, 0)
ElseIf Cells(i, 9).Value = '2' Then
Cells(i, 10).Interior.Color = RGB(215, 175, 45)
ElseIf Cells(i, 9).Value = '3' Then
Cells(i, 10).Interior.Color = RGB(0, 255, 0)
End If
ElseIf Cells(i, 8) = 'N' Then
If Cells(i, 9) = '0' Then
Cells(i, 10).Interior.Color = RGB(255, 0, 0)
ElseIf Cells(i, 9) = '1' Then
Cells(i, 10).Interior.Color = RGB(255, 0, 0)
ElseIf Cells(i, 9) = '2' Then
Cells(i, 10).Interior.Color = RGB(215, 175, 45)
ElseIf Cells(i, 9) = '3' Then
Cells(i, 10).Interior.Color = RGB(0, 255, 0)
End If
ElseIf Cells(i, 8) = 'H' Then
If Cells(i, 9) = '0' Then
Cells(i, 10).Interior.Color = RGB(255, 0, 0)
ElseIf Cells(i, 9) = '1' Then
Cells(i, 10).Interior.Color = RGB(255, 0, 0)
ElseIf Cells(i, 9) = '2' Then
Cells(i, 10).Interior.Color = RGB(255, 0, 0)
ElseIf Cells(i, 9) = '3' Then
Cells(i, 10).Interior.Color = RGB(0, 255, 0)
End If
End If
Next i