Re : macro suppresion lignes contenant X en colonne A
bonjour Roitelet
comme je comprends??
Code:
Option Compare Text
Sub es()
Dim i As Long
Application.ScreenUpdating = False
With Sheets("Feuil1")
For i = .Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If .Cells(i, 1) <> "z" Then .Rows(i).Delete
Next i
End With
End Sub
a moins que tu veus supprimer si contient pas z dans la chaine de caracteres dans ce cas la modifie comme cela
Code:
If .Cells(i, 1) <> "z" Then .Rows(i).Delete
par
Code:
If Not .Cells(i, 1) Like "*z*" Then .Rows(i).Delete