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

Anr1 · 1 Décembre 2021

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 · 1 Décembre 2021

Bonjour anouarlachiri,

VB:

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+

job75 · 1 Décembre 2021

Bonjour anouarlachiri,

VB:

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 · 1 Décembre 2021

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 · 1 Décembre 2021

anouarlachiri à dit:
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 · 1 Décembre 2021

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 · 1 Décembre 2021

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 :

VB:

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 · 2 Décembre 2021

job75 à dit:
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 · 2 Décembre 2021

job75 à dit:
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 :

VB:

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

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

Anr1

XLDnaute Occasionnel

Pièces jointes

job75

job75

XLDnaute Barbatruc

Pièces jointes

Anr1

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

AC045364

XLDnaute Junior

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Anr1

XLDnaute Occasionnel

Anr1

XLDnaute Occasionnel

Discussions similaires