Suppression des lignes contenant un mot

Bonjour,

Dans un fichier, je supprime les lignes "blanches" par :

Range("A1:A" & DerLig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

J'ai voulu reproduire cette commande pour un mot précis, mais ne sachant pas comment faire, j'ai écrit ceci:

'suppression des lignes contenant le mot "xxx"
            Dim i As Integer
             For i = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
                 If .Range("A" & i).Value = "xxx" Then .Rows(i).Delete
                 End If
             Next i

mais ça ne marche pas non plus

Pouvez-vous m'aider SVP ?

Merci

GL

Bonjour,

Tu étais tout proche ...

Dim i As Integer
With ActiveSheet      ' à adapter au besoin
      For i = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
         If .Range("A" & i).Value = "xxx" Then .Rows(i).Delete
      Next i
End With

ric

eh oui, évidemment ! merci

Il n'y a pas quelque chose de proche de la première version (SpecialCells) à faire ?

Bonjour,

Si le test est sur les cellules de la colonne A .Range("A" & i).Value = ""

ric

Multipost , au moins sur 3 forums

Et comme d'hab, ne répond pas aux propositions faites ailleurs...

Non, je pensais plutôt à quelque chose du genre:

Range("A1:A" & DerLig).SpecialCells(Value = "xxx").EntireRow.Delete