XL 2016 Supprimer des lignes à l'aide de VBA avec une condition

[Anr1]

Bonjour tt le monde,

J'aimerais bien avoir un programme VBA pour supprimer les doublons avec la condition de l'année la plus récente.

Ce que je veux c'est de garder une ligne par doublons de la dernière année!

Vous trouverez en pièce joint une exemple avec la résultats souhaité.

NB: mon fichier de travail contient bcp des lignes

Merci par avance

 

[job75]

Bonjour anouarlachiri,

Sub Supprimer_Doublons()
With [A5].CurrentRegion
    .Sort .Cells(1), xlAscending, .Cells(1, 2), , xlDescending, Header:=xlYes 'tri sur 2 colonnes
    .RemoveDuplicates 1 'supprime les doublons
End With
End Sub

A+

 

[Anr1]

Merci bcp @job75,

Le macro fonction bien sur le fichier que vous m'avez envoyer, il me reste de tester le programme sur ma base
Une petite question : vous pouvez m'expliquer comment vous avez introduit la condition d'année la plus récente dans votre programme ?

Merci bien

 

[job75]

Une petite question : vous pouvez m'expliquer comment vous avez introduit la condition d'année la plus récente dans votre programme ?

Le tri sur la 2ème colonne classe les années en ordre décroissant.

Les années les plus récentes sont donc en haut et seront conservées.

 

[AC045364]

Voici une première ébauche.
Attention. Les données doivent être copiées dans la feuille Data.
Pour partir le programme, faire un clic droit dans la cellule A1.
Daniel

 

[job75]

Re; bonsoir AC045364,

Si l'on veut les résultats dans une autre feuille c'est très simple, le code de la 2ème feuille :

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Cells.Delete 'RAZ
Feuil1.[A5].CurrentRegion.Copy [A1]
With UsedRange
    .Sort .Cells(1), xlAscending, .Cells(1, 2), , xlDescending, Header:=xlYes 'tri sur 2 colonnes
    .RemoveDuplicates 1 'supprime les doublons
End With
End Sub

La macro se déclenche quand on active la feuille.

A+

 

[Anr1]

Le tri sur la 2ème colonne classe les années en ordre décroissant.

Les années les plus récentes sont donc en haut et seront conservées.

Parfait merci bcp pour les explications

 

[Anr1]

Re; bonsoir AC045364,

Si l'on veut les résultats dans une autre feuille c'est très simple, le code de la 2ème feuille :

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Cells.Delete 'RAZ
Feuil1.[A5].CurrentRegion.Copy [A1]
With UsedRange
    .Sort .Cells(1), xlAscending, .Cells(1, 2), , xlDescending, Header:=xlYes 'tri sur 2 colonnes
    .RemoveDuplicates 1 'supprime les doublons
End With
End Sub

La macro se déclenche quand on active la feuille.

A+

Mon problème est résolu grâce à vous!

Merci