XL 2010 supprimer les lignes doubles en gardant original code VBA

[Kamalo]

Bonjour,

J'ai un tableau contient des lignes redoublons et je voulais supprimer les redoublons en gardant la ligne redoublante en bas du tableau. exemple:

05/10/2021 nom 0 poste 0
05/10/2021 nom 1 poste 1
05/10/2021 nom 2 poste 2
05/10/2021 nom 3 poste 3

Résultat:

05/10/2021 nom 3 poste 3


Merci d' avance!

 

[mapomme]

Bonjour @Kamalo,

Un essai en VBA. Cliquer sur le bouton Hop!
Le code associé au bouton Hop! est dans module1:

Sub test()
Dim der&
   With Sheets("Feuil1")
      If .FilterMode Then .ShowAllData
      der = .Cells(Rows.Count, "a").End(xlUp).Row
      Application.ScreenUpdating = False
      .Columns(1).Insert: On Error GoTo Fin
      .Range("a1:a" & der).Formula = "=row()"
      .Range("a1:a" & der) = .Range("a1:a" & der).Value
      .Range("a1:d" & der).Sort key1:=Range("b1"), order1:=xlDescending, _
             key2:=Range("a1"), order2:=xlDescending
      .Range("a1:d" & der).RemoveDuplicates Columns:=Array(2)
      .Range("a1:d" & der).Sort key1:=Range("a1"), order1:=xlAscending
Fin:
      .Columns(1).Delete
   End With
End Sub

edit: version légèrement modifiée. L'instruction On error... était mal placée.

 

[Kamalo]

Merci bcp @mapomme pour votre réponse!
Peut être j ai mal expliqué mon besoin, le problème principal c'est que j'ai un bouton archive et chaque fois que je clique il me donne une copie supplémentaire avec la même date et je voulais garder juste la dernière copie archivée et pas besoin d'autres archivé avant.

Je joins un fichier exemple pour comprendre mieux mon problème!

Merci d'avance!