1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| For y = Sheets(2).Range("A1").End(xlDown).Row To 2 Step -1
If Round((Range("AF" & y).Value + Range("AG" & y).Value), 2) <> Round((Range("AH" & y).Value), 2) Then
Sheets(4).Range("A4").Value = Range("AE" & y)
Sheets(4).Range("B4").Value = Range("B" & y)
Sheets(4).Range("C4").Value = Range("C" & y)
Sheets(4).Range("D4").Value = "Rouge"
End If
If Range("E" & y) = "Soleil" Then
If Range("AG" & y).Value <> 0 Then
Sheets(4).Range("A4").Value = Range("AE" & y)
Sheets(4).Range("B4").Value = Range("B" & y)
Sheets(4).Range("C4").Value = Range("C" & y)
Sheets(4).Range("D4").Value = "Jaune"
End If
End If
If Range("E" & y) = "Ciel" Then
If Len(Range("AD" & y)) < 5 Then
Sheets(4).Range("A4").Value = Range("AE" & y)
Sheets(4).Range("B4").Value = Range("B" & y)
Sheets(4).Range("C4").Value = Range("C" & y)
Sheets(4).Range("D4").Value = "Bleu"
End If
End If
Merci! |
Partager