Suppression doublons avec condition

Bonjour le forum,

J'ai en colonne B des références et en colonne D des quantités.

Mon but est supprimer les lignes qui ont en colonne B les mêmes références ET en colonne D une quantité négative et une quantité positive.

J'ai fait un début de code mais il est limité parce qu'il ne prend en compte que les référence en doublons qui se suivent.

J'espère avoir été clair dans mes explications

Merci d'avance pour votre aide!

Bonjour,

à tester,

Sub test()
rw = Cells(Rows.Count, 2).End(xlUp).Row
rngA = "B2:B" & rw
rngB = "D2:D" & rw

For i = rw To 2 Step -1
    a = Cells(i, "B")
    B = Cells(i, "D") * -1
    t = "MATCH(""" & a & """&" & B & "," & rngA & "&" & rngB & ",0) + 1"
    r = Evaluate(t)
    If Not IsError(r) Then
        Rows(r).Delete
        Rows(i - 1).Delete
    End If
Next i
End Sub

essaye ce fichier

Bonjour à tous,

Avec un TCD

Crdlmt

Bonjour à tous!

Merci à vous trois pour la rapidité de vos réponses et désolé pour la lenteur de la mienne. J'ai été pris ces derniers temps...

Ça fonctionne du tonnerre!

Encore un grand merci!!

BZH83