1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Sub Pro()
Dim range_ As Range
Dim i, x As Integer
'le code que tu as mis avant le miens, je sais pas ce qu'il est censé faire donc je l'ai viré.
x = .UsedRange.SpecialCells(xlCellTypeLastCell).row
For i = 2 To x
If Day(CDate(Format(.Range("B" & i).Value, "dd/mm/yyyy"))) < Day(Now) - 3 Then
If Hour(CDate(Format(.Range("A" & i).Value, "hh:MM:ss"))) < Hour("16:00") Then
.Range("A" & i).Clear
End If
.Range("B" & i).Clear
Else
If Hour(CDate(Format(.Range("A" & i).Value, "hh:MM:ss"))) > Hour("15:00") Then
.Range("A" & i).Clear
End If
End If
Next i
End With
end sub |
Partager