Delete si <01/07/08

[Claudy]

Bonjour à tous,
j'ai une macro qui doit parcourir + de 10000 cellules et si la cellule est inférieure à la date du 01/07/08 et que la Cel.offset(0,-2) n'est pas vide, la ligne entière doit etre supprimée.
Ma macro:

Sub delete_Mara()
Application.EnableEvents = False
For Each cel In Range("E8:E10000")
Range("A5") = cel.Row'pour voir l'état d'avancement
If CDate(cel.Value) < CDate(Range("A4").Value) And IsEmpty(cel.Offset(0, -2)) Then
cel.EntireRow.Delete
End If

Next

Application.EnableEvents = True
End Sub


Mon problème: cette macro est assez lente car à chaque erreur dans la date le débug s'affiche, ce que je voudrais eviter.
Merci d'avance,
Claudy

 

[BOISGONTIER]

Re : Delete si <01/07/08

Bonjour,

If IsDate(cel.Value) Then
   If CDate(cel.Value) < CDate(Range("A4").Value) And IsEmpty(cel.Offset(0, -2)) Then cel.EntireRow.Delete
End If

JB

 

[Claudy]

Re : Delete si <01/07/08

Merci JB, ça roule!