supprimer 1 ligne avec 1 macro

[jean]

bonjour a tous

je cherche un moyen de supprimer une ligne contenant un chiffre bien precis par exemple '1'
je travaille sur des bases de donnees enormes et il faut que je supprime toute les lignes comportant une certaine reference,
sur le doc excel ci joint j'ai en fait simplifier le probleme mais c'est vraiment ce qu'il me faut,

un grand merci d'avance

 

[Philippe]

Bonsoir jean,


Voici une petite macro qui te supprimera toutes les lignes dans laquelle elle trouvera un '1' ceci dans une plage de A1 à Z100, plage que tu adapteras bien entendu à tes besoins

Sub efface_ligne()
Dim vcel As Range
Range('A1:Z100').Select
For Each vcel In Selection
If vcel.Value = 1 Then vcel.EntireRow.Delete
Next
End Sub

A+
Philippe