Supprimer doublons en fonction des dates
sam
-
Mike-31 Messages postés 18398 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 18398 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- Supprimer doublons en fonction des dates
- Supprimer rond bleu whatsapp - Guide
- Fonction si et - Guide
- Supprimer page word - Guide
- Doublons photos - Guide
- Nombre de jours entre deux dates excel - Guide
4 réponses
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.
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
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
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
Alors c sur excel 2003
Merci