Bonjour, j'ai des fichiers excel a trier pour ma hierarchie (3 fichiers de 5000 lignes)
Je dois supprimer des doublons. Je cherches a réaliser une macro (je penses avec une boucle) pour supprimer en automatique ces doublons.
exemple:
418160 24/09/2001 00:00:00
418160 24/09/2001 00:00:00
418160 24/09/2001 00:00:00
418185 01/01/1996 00:00:00 23/09/2001 00:00:00
418185 24/09/2001 00:00:00
418196 01/01/1997 00:00:00 23/09/2001 00:00:00
418196 24/09/2001 00:00:00
418198 01/01/1996 00:00:00 23/09/2001 00:00:00
418198 24/09/2001 00:00:00
ce que je dois obtenir en final
418160 24/09/2001 00:00:00
418185 24/09/2001 00:00:00
418196 24/09/2001 00:00:00
418198 24/09/2001 00:00:00
le seul impératif est de garder le dernier nombre des doublons et supprimer toujours les doublons du dessus
et utiliser toujours la première colonne pour la macro
Avez-vous une macro a me proposer svp
merci d'avance
j'ai essayé avec cette boucle mais il me fait le contraire, il me supprime les suivantes au lieu des précedentes.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Sub supprimeDoublons() MaCellule = "A2" Range(MaCellule).Select ActiveCell.CurrentRegion.Sort Key1:=Range(MaCellule), Order1:=xlAscending, Header:=xlYes donnee1 = ActiveCell While ActiveCell <> "" ActiveCell.Offset(1, 0).Select If ActiveCell = donnee1 Then ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select donnee1 = ActiveCell Else donnee1 = ActiveCell End If Wend End Sub
Partager