Supprimer ligne d'un tableau en fonction d'une liste

instanceM à dit:

J'ai eu le mème problème regarde ce code peut ètre t'aidera t'il ( à adapter )

Sub supp ()

ReDim aeff(0)

tablo1 = Sheets("Feuil1").Range("L1:L" & Sheets("Feuil1").Range("L" & Rows.Count).End(xlUp).Row)
tablo2 = Sheets("Feuil2").Range("A1:A" & Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row)

For n = LBound(tablo2, 1) To UBound(tablo2, 1)
For m = LBound(tablo1, 1) To UBound(tablo1, 1)

If tablo2(n, 1) = tablo1(m, 1) Then

exist = True
Exit For

End If

Next

If exist = False Then

aeff(UBound(aeff)) = n

ReDim Preserve aeff(UBound(aeff) + 1)

Else

exist = False

End If

Next

Application.ScreenUpdating = False

For n = UBound(aeff) - 1 To LBound(aeff) Step -1

Sheets("Feuil2").Rows(aeff(n)).Delete

Next

Application.ScreenUpdating = True

End Sub

Cliquez pour agrandir...