MACRO - Supprimer ligne si

Bonjour à tous,

J'aurais besoin d'un peu d'aide pour modifier une macro.

Je souhaiterais supprimer la ligne entière si une des cellule contient "Résultat" ou "Résultat global"

J'ai trouvé le code ci-dessous qui fonctionne bien si une des cellule contient "Résultat" ou "Résultat global" dans la colonne C, mais je voudrais que la plage soit sur tout le tableau et non uniquement sur la colonne C.

 Sub DelEditeur()
Dim i As Integer
With ThisWorkbook.Sheets("Feuil1")
'Précisez le nom de votre feuille
            For i = .Range("C" & .Rows.Count).End(xlUp).Row To 2 Step -1
'je travaille sur la colonne c
'Rows.count permet de retourner le nombre de ligne de la plage range
                        If .Range("C" & i).Value = "Résultat" Then
                                   .Rows(i).Delete
                        End If
            Next i
End With
End Sub

Merci bien par avance.

Cordialement

Bonjour,

Merci de joindre ton fichier.

Voici le fichier épuré, merci.

Bonjour,

un truc du genre

Sub supp()
For i = 1 To 17 'colonne 1= A 17 = Q
    For Z = 9 To 4 Step -1 'ligne du tableau
        If Cells(Z, i) = "Résultat" Then 'mot recherché qui supprime la ligne
            Rows(Z).Delete
        End If
    Next Z
Next i
End Sub

Cordialement

Bonjour Bigdady,

Cela fonctionne parfaitement, un grand merci.

J'ai adapté le code comme ceci :

Sub supp()
For i = 1 To 17 'colonne 1= A 17 = Q
   For Z = 10000 To 1 Step -1 'ligne du tableau
       If Cells(Z, i) = "Résultat" Then 'mot recherché qui supprime la ligne
           Rows(Z).Delete
        End If
    Next Z
Next i
End Sub

En plus de résultat je voudrais rajouter "Résultat global" pour supprimer les lignes.

Aurais-tu une idée ?

Merci par avance.

Rajoute ceci

Sub supp()
For i = 1 To 17 'colonne 1= A 17 = Q
  For Z = 10000 To 1 Step -1 'ligne du tableau
      If Cells(Z, i) = "Résultat" or Cells(Z, i) = "Résultat global" Then 'mot recherché qui supprime la ligne
          Rows(Z).Delete
        End If
    Next Z
Next i
End Sub

Cordialement

C'est super, merci bien et bonne après-midi.

Cordialement.