Suppression ligne en doublon

Bonjour à tous.

J'espère que vous avez passé une bonne journée et que vous pourrez m'apporter votre aide.

Mon problème est le suivant :

Dans mon fichier excel ci-joint j'ai deux feuilles :

Import : qui est la feuille sur laquelle arrive les impayés à traiter

Bases des impayés déjà traité : qui est la feuille qui stocke les impayés déjà traités.

Je suis à la recherche d'une Macro VBA qui va :

• comparer le numéro impayé (colonne A) de la feuille Import avec le numéro impayé traité (colonne A) de la feuille Bases des impayés déjà traité
• Lorsqu'un numéro impayé de la feuille import est déjà présent dans la colonne numéro impayé traité (colonne A) de la feuille Bases des impayés déjà traité, la macro va supprimer le doublon (toute la ligne correspondant au numéro d'impayé) qui est présent sur la feuille import de tel sorte à ce qu'il ne restera sur la feuille import que des impayés qui ne sont pas sur la feuille bases des impayés déjà traité.

Merci de votre aide

Bonjour,

Voici une macro qui devrait te faire ça "aux petits oignons"...

Sub test()
Dim rng As Range, ArrB, ArrI, i&, ii&
Set rng = Feuil1.[A1].CurrentRegion
With rng
   Set rng = .Offset(1).Resize(.Rows.Count - 1)
   ArrI = rng.Value
End With
Set rng = Feuil2.[A1].CurrentRegion
With rng
   Set rng = .Offset(1).Resize(.Rows.Count - 1)
   ArrB = rng.Value
End With
For i = UBound(ArrI) To LBound(ArrI) Step -1
   For ii = UBound(ArrB) To LBound(ArrB) Step -1
      If ArrI(i, 1) = ArrB(ii, 1) Then
         Feuil1.Rows(i + 1).Delete
         Exit For
      End If
   Next
Next
End Sub

A+

Sub Macro1()
'
' Macro1 Macro
'
ActiveWorkbook.Sheets("Import").Activate
Cells(2, 1).Activate

While ActiveCell.Value <> ""

If Application.CountIf(ActiveWorkbook.Sheets("Bases des impayés déjà traité ").Columns("A:A"), ActiveCell.Value) > 0 Then
Range(Selection, Selection.End(xlToRight)).Delete Shift:=xlUp
Else
ActiveCell.Offset(1, 0).Activate
End If

Wend

End Sub

Bonjour

petit bout de macro a tester

A plus sur le forum

Bonjour à tous,

Merci pour vos retours. Elles marchent toutes.

Merci pour votre aide