Supprimer les doublons

Bonsoir,

Dans le fichier ci-joint que je rapatris d'une requête BO, je voudrais supprimer les doublons et grader l'immatriculation à la date de création la plus ancienne.

Merci.

Bonjour à tous,

Attention, le tableau est re-trié dans la macro

dans ton exemple, je ne vois que 2 doublons à supprimer.

Sub SupprLignes()
''Macros par Claude Dubois pour "JUJU1" Excel-Pratique le 9 Déc 09
Dim Lg%, i%, X, Y
        X = Time
    Lg = Range("d65536").End(xlUp).Row
        Application.ScreenUpdating = False
    Range("b7:n" & Lg).Sort Key1:=Range("d7"), Order1:=xlAscending, _
    Key2:=Range("h7"), Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, _
    MatchCase:=False, Orientation:=xlTopToBottom

    For i = Lg To 7 Step -1
        If Cells(i, "d") = Cells(i, "d").Offset(-1, 0) Then _
        Cells(i, "d").EntireRow.Delete
    Next i
        Application.ScreenUpdating = True
        Y = Time
    MsgBox ("temps macro = " & Format(Y - X, "hh:mm:ss"))
End Sub

J'ai mis un chrono, tu me diras le temps de traitement (si beaucoup de lignes)

Amicalement

Claude.

Merci claude, c'est bien cela que je voulais.

Mais comment je fais pour installer cette macro dans le fichier original?

A+

Bonsoir à tous,

Tu fais:

1) Alt+F11, ce qui ouvre le VBE

2) clique droit sur VBAProject(tonFichier.xls)

3) Insertion Module, et tu y copie/colle la macro

Je te conseille de faire une copie de la feuille originale,

pour vérification éventuelle.

Amicalement

Claude.

Claude,

La macro fonctionne trés bien et le résultat est instantané pour un tableau de 250 lignes.

Encore merci

Bonne soirée

Bonsoir,

Comme tu es nouveau, je te rappelle la petite formalité,

mettre le poste en "résolu" avec la case à cocher (verte)

à+....Claude.