supprimer doublon suivant date

nwemba

XLDnaute Nouveau
Bonjour

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

merci
 

Pièces jointes

  • test.xls
    24 KB · Affichages: 70
  • test.xls
    24 KB · Affichages: 75
  • test.xls
    24 KB · Affichages: 68
G

Guest

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.

Code:
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+
 

Statistiques des forums

Discussions
312 836
Messages
2 092 648
Membres
105 476
dernier inscrit
hilt