Suppression de ligne entière dans un tableau en fonction d'une valeur

Bonjour à tous.

Après avoir fouillé dans le forum, j'ai trouvé un code qui me permettrait de supprimer toutes les lignes de mon tableau structuré dont certaines cellules de la colonne ("G:G") contiennent la valeur <<RR>>

j'ai essayé de l'adapter, mais à l'exécution, il s'arrête au niveau de:

Cell.EntireRow.Delete

Et on affiche le message suivant:

la méthode delete de la classe range a échoué 

Voici le code 👇👇

Sub supplesligRR()
Dim SH as worksheet
Dim celle as Range
Dim LO

Set ah = feuil3
Set LO = feuil3.ListObjects(1).DataBodyRange
      With LO
        For each cell in LO
         If cell.value = "RR" Then
            Cell.EntireRow.Delete
          End if
        Next celle
       End with
End sub

j'ai besoin qu'on m'aide ou si quelqu'un me propose une autre méthode, je suis preneur.

merci à tous.🙏🙏🙏

Bonjour,

est-ce normal "Next celle" ?

Cela ne devrait il pas être "Next cell" ?

Oui, next cell. C'est corrigé.

Mais le problème ne se trouve pas ce niveau.

mais plutôt au niveau de

Cell.EntireRow.Delete

🙏🙏🙏

Bonjour,
A tester !...
Cdlt.

Sub supplesligRR()
Dim lo As ListObject, i As Long
    Set lo = Feuil3.ListObjects(1)
    For i = lo.ListRows.Count To 1 Step -1
        If lo.ListRows(i).Range.Cells(1).Value = "RR" Then lo.ListRows(i).Delete
    Next i
End Sub

Je te propose:

Sub supplesligRR()

Dim nbligne As Long, i As Long

nbligne = Range("G1").CurrentRegion.Rows.Count

Application.ScreenUpdating = 0

For i = nbligne To 1 Step -1

If (Cells(i, 1).Value) = "RR" Then

Rows(i).Delete

End If

Next i

End Sub

Bonjour,

Esct ce que tu n'aurais pas plusieurs tableaux dans ta feuil3 ?

Alors que comme ca, tout roule

Il faut aussi faire attention car ce code

Set LO = Feuil3.ListObjects(1).DataBodyRange

fait reference au premier tableau de ta feuil 3 , c'est lui dont les lignes seront supprimés si elles contiennent un RR

@ +

Merci à tous pour l'aide, le code marche correctement maintenant. 🙏🙏🙏

Re,
Merci de ce retour.
Cdlt.