bonjour, je dois corriger un code de mon collegue ,qu 'il a plante en voulant le modifier.
le comble c'est que je l'ai ecrit et ne m'en souviens plus.
il reste une petite erreur autour de cette boucle if, mais je ne souviens plus de la synthaxe, quelqu'un pourrait- me donner un coup de main que je passe a autre de chose.
merci d'avance ;-)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim i As Integer
Dim j As Integer
 
For i = 1 To DerCel
 
If Cells(i, 5).Value < 0 Then
For j = 1 To Rows(i).Columns(j).Interior.Color = RGB(250, 0, 0)
ElseIf Cells(i, 6).Value < 0 Then
For j = 1 To Rows(i).Columns(j).Interior.Color = RGB(200, 100, 100)
ElseIf Cells(i, 7).Value < 0 Then
For j = 1 To Rows(i).Columns(j).Interior.Color = RGB(0, 250, 250)
End If
 
Next i