supprimer des lignes automatiquement en focntion d'1 critère

[fred]

Salut,

J'ai besoin d'un petit programme qui me permettrait via une macro de supprimer des lignes pour lesquelles il y a une date d'entrée en stock

Merci pour votre aide

Matricule Modèle Teinte date d'entrée en stock
011260 ORSAY 27 #N/A
011261 ORSAY 27 #N/A
011263 ODEON 27 20040204
011264 ODEON 27 20040204
011265 ODEON 27 20040204
011267 ORSAY 53 20040109
011268 ORSAY 53 20040204

 

[omicron]

Bonsoir Fred,

Voici une macro qui devrait donner le résultat escompté.
Il y a juste le Range à analyser à adapter

=====================================================
Private Sub Delete_Dates()
j = 1
For i = 1 To Range("A115").Rows.Count
If IsDate(Range("A115").Cells(j, 4).Value) Then
Sheets("Feuil1").Rows(j).Delete
Else
j = j + 1
End If
Next i
End Sub
=====================================================

Cordialement.

Omicron.