Bonjour,
Je ne comprends pas pourquoi mon boucle ne se lance pas.
For i = 156 To Cells(Rows.Count, "B").End(xlUp).Row
If ((Cells(i, "K").Value > 0) And (Cells(i, "K").Value < 1000)) And _
Format(Cells(i, "F").Value, "yyyy") < (Year(Now) - 1) Then
Cells(i, "I").Value = "PROBLEME"
ElseIf (Cells(i, "K").Value > 0 And Cells(i, "K").Value < 200) And _
Format(Cells(i, "F").Value, "yyyy") = (Year(Now) - 1) Then
Cells(i, "I").Value = "ATTENTE " & Year(Now) - 1
End If
Next i
Je ne comprends pas pourquoi mon boucle ne se lance pas.
For i = 156 To Cells(Rows.Count, "B").End(xlUp).Row
If ((Cells(i, "K").Value > 0) And (Cells(i, "K").Value < 1000)) And _
Format(Cells(i, "F").Value, "yyyy") < (Year(Now) - 1) Then
Cells(i, "I").Value = "PROBLEME"
ElseIf (Cells(i, "K").Value > 0 And Cells(i, "K").Value < 200) And _
Format(Cells(i, "F").Value, "yyyy") = (Year(Now) - 1) Then
Cells(i, "I").Value = "ATTENTE " & Year(Now) - 1
End If
Next i