supprimer doublons & prendre valeur min

[natacha]

Bonjour à tous,
j'ai fait des recherches sur le forum mais je n'arrive pas vraiment à trouver ce que je veux.
Voila, j'ai une base de données avec 2 variables qui sont des dates. Mais voila ma base de données contient des doublons, j'aimerais donc faire une liste sans doublon et qui prenne s'il y a doublon la date la plus ancienne.
Je joints un fichier pour plus etre plus claire

 

[mromain]

Re : supprimer doublons & prendre valeur min

bonsoir natacha

voici un exemple
dis-moi si ça te conviens

A+

 

[BOISGONTIER]

Re : supprimer doublons & prendre valeur min

Bonsoir,

Sub supDoublonsTradi()
   Application.ScreenUpdating = False
   Application.Calculation = xlCalculationManual
   [A1].Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("b2"), _
       Order2:=xlAscending, Header:=xlGuess
   For i = [A65000].End(xlUp).Row To 2 Step -1
     If Cells(i, 1) = Cells(i - 1, 1) Then Rows(i).Delete
   Next i
   Application.Calculation = xlCalculationAutomatic
End Sub

JB
Formation Excel VBA JB

 

[mromain]

Re : supprimer doublons & prendre valeur min

bonsoir BOISGONTIER

vraiment nikel ta solution

bonne nuit

 

[natacha]

Re : supprimer doublons & prendre valeur min

Bonjour à tous,
merci BOISGONTIER, ta solution marche à merveille.