Supprimer doublons en fonction des dates

Salut,

Sur quelle application et quelle version !

Re,

En supposant que tes noms sont colonne A à partir de A2 et Date colonne B à partir de B2 ligne 1 les entête de colonne, ce code devrait faire l'affaire

Sub Sup_Doubl_Ancien()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
[A1].Sort Key1:=Range("A2"), Order1:=xlAscending, _
Key2:=Range("B2"), Order2:=xlDescending, 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

Si tu en dis plus sur la structure de ton fichier on pourra adapter le code. Si tu as besoin d'un exemple fais signe, je t'en posterai un dans la soirée

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Je te remercie mais en fait comme je devais faire ça dans la journée, j'ai réussi à faire ça avec une fonction excel.
Par contre ça pourrait m'aider si tu pouvais me donner un autre code (si toutefois je n'abuse pas de ta gentillesse)
En fait j'ai une colonne sur une base de données où figurent des contreparties et chacune figure plusieurs fois (à chaque date d'arrété comptable) et dc j'ai autant de chiffre d'affaire correspondant (qui se trouvent donc dans une autre colonne) ce que je voudrais c calculer la moyenne du chiffre d'affaire pour chaque contrepartie, je sais pas si tu vois ce que je veux dire!!

En tt cas je te remercie

Re,

Tu pourrais me faire passer un exemple de ton fichier sans notes confidentielles (juste les colonnes qui nous intéressent) avec ce lien

https://www.cjoint.com/

Je n'ai que demain, après je m'absente une huitaine de jours