Problème Doublons

Bonjour tout le monde !

Alors voila, j'ai des informations contenus dans 3 colonnes differentes : Un n° de commande, une date, et un prix

Le probleme c'est qu'il est possible que mon n° de commande soit plusieurs fois repeté, je cherche donc a recuperer le n° de commande avec sa date la plus recente et le prix correspondant a cette date.

Pour cela j'ai fait en sorte que dans ma colonne B contenant les dates, celle ci soit sous la forme AAAAMMJJ pour pouvoir avoir un ordre croissant de date et recuperer la date dite "maximale"

Le code ci dessous me permet de supprimer les doublons en gardant la valeur de date la plus recente, seul soucis je ne sais pas comment faire pour recuperer le prix correspondant a cette date.

Petite aide ?

  Dim j As Long
    Application.ScreenUpdating = False
    a = Range("A1:B" & B180000].End(xlUp).Row)
    Set dico = CreateObject("Scripting.Dictionary")
    For j = LBound(a) To UBound(a)
        If a(j, 2) > dico(a(j, 1)) Then
        dico(a(j, 1)) = a(j, 2)
        End If

    Next j

    [E1].Resize(dico.Count) = Application.Transpose(dico.keys)
    [F1].Resize(dico.Count) = Application.Transpose(dico.Items)

    Columns("A:B").Delete

Merci les cocos <3

Bonjour,

Ce code devrait suffire (en supposant qu'il n'y ait pas d'entêtes)

    With ActiveSheet.UsedRange
        .Sort key1:=Range("A1"), order1:=xlAscending, key2:=Range("B1"), order2:=xlDescending, Header:=xlNo
        .RemoveDuplicates Columns:=1, Header:=xlNo
    End With

Tu peux m'expliquer un peu? J'ai 3 colonnes pas élue ment 2 et je vois que colonne A et B dans ton code !

ActiveSheet.UsedRange correspond à la plage utilisée de feuille active. Donc tes 3 colonnes y sont.

ligne 1 : tri ascendant sur la colonne A et tri descendant sur la colonne B

ligne 2 : suppression des doublons figurant en colonne 1, c'est à dire colonne A.

Bonjour,

Pour cela j'ai fait en sorte que dans ma colonne B contenant les dates, celle ci soit sous la forme AAAAMMJJ

Pas besoin de faire une gymnastique pour trier des dates !

A+

Bonjour,

tu peux tester ceci si tu veux par dictionnaire et...il doit y avoir plus court

P.