supprimer doublons en fonction des dates Fermé

Question

Bonjour tout le monde,

J'aurais besoin d'un code VBA si'lun de vous pourrait m'aider, alors en fait j'ai 2 colonnes qui m'intéresse sur une base de données; sur l'une figure l'identifiant des sociétés , et sur l'autre les dates d'arrété comptable, j'aimerai garder la même entreprise qu'une seule fois en fonction de la date d'arrété la plus récente!!

Merci d'avance

Mike-31 · Answer

Salut,

Sur quelle application et quelle version !

Mike-31 · Answer

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.

sam · Answer

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

Mike-31 · Answer

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

Supprimer doublons en fonction des dates

4 réponses