supression de doublon dans excel Résolu/Fermé

Question

Je recherche une façon d'éliminer les doublons dans un ficher excel. Il faut vérifier la date et l'heure + ou - 3 seconde. Ensuite suprimer la ligne.


2007-01-04	13:54:30		Incoming
2007-01-04	13:54:30		Incoming
2007-01-04	20:48:06		Incoming
2007-01-04	20:48:07		Incoming
2007-01-04	23:42:29		Incoming
2007-01-04	23:42:31		Incoming
2007-01-05	19:12:52		Incoming
2007-01-05	19:12:52		Incoming
2007-01-06	00:41:30		Incoming
2007-01-06	00:41:31		Incoming
2007-01-06	21:18:26		Incoming
2007-01-06	21:18:27		Incoming
2007-01-07	14:16:11		Incoming
2007-01-07	15:19:58		Incoming
2007-01-07	15:19:58		Incoming
2007-01-07	17:35:37		Incoming

merci pour l'aide

wilfried_42 · Answer

Bonjour,

tu n'aurais pas un fichier exemple, avec sa structure et quelques exemples ?
on te met la macro dessus et on te le renvoie

@ te lire

wilfried_42 · Answer

re:

tu vas sur ce cite : https://www.cjoint.com/
tu charges ton fichier, creer le lien, à la page suivante, il t'affiche un lien, tu le copies colle ici

patdaoust · Answer

Voci un exemple de fichier. Noter que les colonnes vides auront une utilité.


https://www.cjoint.com/?jtre0DP8F5


merci

eriiic · Answer

Bonjour,

je peux wilfried ? ;-)

Tu peux le faire avec en M2 :
=SI(C2+D2-C1-D1<CNUM("00:03:00");"doublon";"ok")
à recopier vers le bas.
M2 te retourne #VALEUR mais est à garder de toute façon.
Il te reste à ajouter un filtre automatique et filtrer en M sur 'doublon'.
Sélectionner la 1ère ligne à éliminer, clic sur la dernière et clic-droit 'supprimer'
eric

wilfried_42 · Answer

re: Bonjour eric

Eric tu peux sans probleme, je ne suis pas éternellement connecté lol 

ton fichier en retour, avec un bouton lié à une macro
https://www.cjoint.com/?jttvQ7Qy4V

Voici la macro : 
Sub Go_macro()
    Range("M3").Formula = "=IF(abs(l3-l2)<=(""00:00:03"" *1),""NON"",""OUI"")"
    Range("M3:M" & Range("D65536").End(xlUp).Row).FillDown
    Range("A1").AutoFilter Field:=13, Criteria1:="NON"
    Range("D2:D" & Range("D65536").End(xlUp).Row).Cells.SpecialCells(xlCellTypeVisible).EntireRow.Delete
    Range("A1").AutoFilter
    Range("M:M").ClearContents
End Sub

wilfried_42 · Answer

re: eric

je crois que tu as raison mais il a du faire la correction tout seul lol

à +

Supression de doublon dans excel

6 réponses

Discussions similaires