Supprimer Ligne

[jeanphi]

bonjour tout le monde

dans une feuille je veux supprimer les lignes correspondant à un critère

voici mon code mais ca marche pas 🙁

Sub supprimer()
Dim cell As Range
For Each cell In Sheets("Impact").Range("C31:C" & Sheets("Impact").Rang("E65536").End(xlUp).Row)
If cell.Value = "Maintenance" Then
rows.Delete
End If
Next cell
End Sub


Quelqu'un a t'il une idée?
Merci

 

[pierrejean]

Re : Supprimer Ligne

A tester:

Sub supprimer()
For n= Sheets("Impact").Range("E65536").End(xlUp).Row to 31 step -1
If Sheets("Impact").range("C" & n)= "Maintenance" Then
rows(n).Delete
End If
Next n
End Sub

 

[jeanphi]

Re : Supprimer Ligne

BONJOUR PJ

Super!
merci et bonne soirée 😉