BVA Suppression lignes tableau structuré, par rapport à liste de critères

Bonjour le Forum

Je joint un fichier

Merci d'avance

Nonno

Bonjour Nonno,

Procédure à inclure dans un module :

Sub SupprLigTS()
Dim oCell As Range
Dim vLigSuppr As Variant
Dim nNbSuppr As Long
   nNbSuppr = 0
   With Worksheets("Feuil3").ListObjects("Tableau3")
      For Each oCell In Worksheets("Feuil3").ListObjects("Tableau4").ListColumns("Colonne1").DataBodyRange
         vLigSuppr = Application.Match(oCell.Value, .ListColumns("Références").DataBodyRange, 0)
         If IsError(vLigSuppr) = False Then
            .ListRows(vLigSuppr).Delete
            nNbSuppr = nNbSuppr + 1
         End If
      Next
   End With
   MsgBox nNbSuppr & " correspondantes et supprimées"
End Sub

Cdlt,

Cylfo

Bonjour et Merci Cylfo,

ça fonctionne parfaitement.

Encore Merci

Bonne soirée

Cordialement

Nonno