macro suppresion lignes contenant X en colonne A

L

laetitia90

XLDnaute Barbatruc

• 29 Septembre 2011

• #2

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

 

Dernière édition: 29 Septembre 2011

Vote positif 0 Vote négatif

R

Roitelet

Guest

• 29 Septembre 2011

• #3

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

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 29 Septembre 2011

• #4

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

R

Roitelet

Guest

• 29 Septembre 2011

• #5

Re : macro suppresion lignes contenant X en colonne A

Bonsoir Laetitia90,

Super,
Merci beaucoup pour votre aide,

Salutations cordiales,

Roitelet

 

Vote positif 0 Vote négatif