VBA supprimer doublon

Bonjour

J'ai une feuille de données qui se remplit par des utilisateurs différents et mon souci est le suivant:

Un macro qui compare les colonnes a et b, et supprime les lignes en doublons.

Suppression de la ligne entière et garder la dernière rentrée de données.

Merci à l'avance

8duplicates.xlsm (18.50 Ko)

Bonjour,

Merci d'éviter le crossposting, ce n'est pas respectueux du temps pris par les contributeurs de ce forum

Bonjour,

Alors on fait du crossposting !

Pas très sérieux...

Sinon, mets tes tes données sous forme de tableau (structuré). Nomme ce tableau Données et copie la procédure ci-dessous dans un module standard.

Cdlt.

Public Sub SortAndDeleteDuplicates()
Dim lo As ListObject
    Set lo = Range("Données").ListObject
    With lo
        'Etape 1 : tri
        .Sort.SortFields.Add Key:=.ListColumns(1).DataBodyRange, Order:=xlDescending
        .Sort.SortFields.Add Key:=.ListColumns(2).DataBodyRange, Order:=xlAscending
        .Sort.Header = xlYes
        .Sort.Apply
        'Etape 2 : suprression doublons
        .Range.RemoveDuplicates Columns:=Array(1, 2)
        'Etape 3 : tri (si nécessaire !)
        .Sort.SortFields.Add Key:=.ListColumns(1).DataBodyRange, Order:=xlAscending
        .Sort.Header = xlYes
        .Sort.Apply
        .Sort.SortFields.Clear
    End With
End Sub
Rechercher des sujets similaires à "vba supprimer doublon"