macro suppresion lignes contenant X en colonne A

[Roitelet]

Bonjour,

Je ne trouve pas de réponse à mon problème dans les archives car les problèmes traités y sont plus complexes alors je viens demander de l'aide.

Quelle est la macro ou la fonction pour :
"supprimer toutes les lignes de la feuille 1 contenant X ou Y (ou bien ne contenant pas Z) en colonne A" ?

Merci pour votre aide précieuse.

Salutations cordiales

 

[laetitia90]

Re : macro suppresion lignes contenant X en colonne A

bonjour Roitelet
comme je comprends??

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

If .Cells(i, 1) <> "z" Then .Rows(i).Delete

par

If Not .Cells(i, 1) Like "*z*" Then .Rows(i).Delete

 

[Roitelet]

Re : macro suppresion lignes contenant X en colonne A

Bonjour laetitia90,

Merci, c'est exactement cela que je voulais.

Pour parfaire le tout, comment exclure la première ligne de titres de la suppression ?


Merci,

Cordialement

 

[laetitia90]

Re : macro suppresion lignes contenant X en colonne A

re tout simplement 2 a la place de 1

For i = .Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1

 

[Roitelet]

Re : macro suppresion lignes contenant X en colonne A

Bonsoir Laetitia90,

Super,
Merci beaucoup pour votre aide,

Salutations cordiales,

Roitelet