supprimer doublon suivant date

[nwemba]

Bonjour

J'aimerai supprimer toutes les ref en doublons sauf le plus récent.

merci

 

[Guest]

Re : supprimer doublon suivant date

Bonjour,

D'après l'exemple joint,

La macro Tri sur les références en ordre croissant et les dates en ordre décroissant puis supprime les doublons.

Sub SuppressionDoublons()
Dim plage As Range, i As Long
With Feuil2
    Set plage = .Range("A1:C" & .Range("A" & .Rows.Count).End(xlUp).Row)
    With plage
      .Sort Key1:=.Cells(2, 1), Order1:=xlAscending, _
                Key2:=.Cells(2, 2), Order2:=xlDescending, _
                Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
                Orientation:=xlTopToBottom
                
    For i = .Rows.Count To 2 Step -1
        If .Cells(i, 1) = .Cells(i - 1, 1) And .Cells(i, 2) < .Cells(i - 1, 2) Then .Cells(i, 1).EntireRow.Delete
    Next i
    End With    
End With
End Sub

A+

 

[nwemba]

Re : supprimer doublon suivant date

merci c'est ca