Supprimer des lignes en doublons dans excel

Bonjour,

Vous pouvez essayer ce scripts. Il suffit juste de l'intégrer dans un module et exécuter la fonction.

Sub supprimeDoublons()

MaCellule = ("B6")
Range(MaCellule).Select
ActiveCell.CurrentRegion.Sort Key1:=Range(MaCellule), Order1:=xlAscending, Header:=xlYes
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select

While ActiveCell <> ""
If ActiveCell = donnee1 Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
Else
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub

Dans Office 2010 (et peut-être même dans 2007), c'est très simple, il suffit de sélectionner le tableau sur lequel on veut supprimer les doublons, aller à l'onglet DONNÉES, puis dans OUTILS DE DONNÉES cliquer sur "Supprimer les doublons".

Et c'est automatique et beaucoup plus efficace que de saisir dans une colonne supplémentaire des codes à base de =SI(NB.SI($C$2:C2;C2)>1;"Doublon";"")
{ce qui marche aussi...}

Bonjour Erdna69,

Dans une colonne libre tu peux mettre :
=ET(EQUIV(B2;B:B;0)<>LIGNE();D2=INDEX(D:D;EQUIV(B2;B:B;0)))
et filtrer sur la valeur VRAI pour avoir les doublons (colonnes B et D identiques)

ou bien :
=SI(ET(EQUIV(B2;B:B;0)<>LIGNE();D2=INDEX(D:D;EQUIV(B2;B:B;0)));EQUIV(B2;B:B;0);"")
si tu préfères avoir le n° de la 1ère ligne où apparait ta combinaison.

eric

Bonjour, au cas où ça intéresserait quelqu'un, j'ai trouvé une astuce pour pouvoir virer des lignes en doublons en fonction des colonnes que vous voulez, sans script.

La première chose à faire est de sélectionner tout le document, puis faire données=> trier => et trier vos données en fonction des colonnes que vous voulez regarder, de manière à ce que les lignes en doublons soient les une juste après les autres. (si une ligne est comme une autre pour la colonne, elle est juste derrière cette ligne).

Puis vous rajoutez une colonne. Dans cette colonne, à la seconde ligne, vous mettez une formule de ce type:
=SI(ET([colonne1]2=[colonne1]1;[colonne2]2=[colonne2]1;....);1;0)

colonne1, colonne2, etc... correspondant aux colonnes pour lesquelles vous voulez regarder.
Grâce à ca, les "bonnes lignes" sont marquées avec des 0, et les doublons avec des 1.

Ensuite vous sélectionnez la nouvelle colonne ainsi remplie, vous copiez, et vous faites clic droit => collage spécial => valeurs. Ainsi le contenu de la colonne reste inchangé, mais devient "en dur" sans la formule précédente.
Enfin vous sélectionnez tout votre document, et vous faites données => trier => sur la colonne nouvellement crée.
Ainsi vous vous retrouvez avec toutes les "bonnes lignes" suivies par tous les doublons (marqués par des 1 dans la colonne rajoutée).
Vous n'avez pu qu'à sélectionner facilement tous les doublons, et les supprimer.

Ca fonctionne parfaitement si vous voulez trier sur toutes les colonnes à la fois.
Si vous voulez faire que sur certaines colonnes, celles-ci étant multiples, c'est un peu plus compliqué, et il faut réfléchir un peu avant d'agir.
Mais si vous n'avez pas envie de vous prendre la tête, vous pouvez toujours répéter l'astuce plusieurs fois en faisant les colonnes une par une...
Dans tous les cas ça reste relativement rapide à faire, et la seule erreur possible est d'oublier certains doublons si on fait sur plusieurs colonnes en même temps... Dans tous les cas vous ne supprimerez pas de lignes n'étant pas des doublons.
Et cela a le mérite d'être compréhensible quand on ne connaît pas le langage de script d'excel ^^

Tu peux trouver la réponse ici :

http://www.tout-savoir.net/videos/48-comment_supprimer_des_doublons_avec_excel-microsoft-excel-2007

Salut Eric,
Super de bosser pour moi jusqu'à près d'1 heure du matin !
J'ai testé ta macro sur mes données réelles, ça marche, c'est exactement ce que je voulais. C'est génial, Merci Eric

Bonjour à tous,

Ce code fonctionne très bien mais malheureusement j'essaye en vain d'adapter ce code à une recherche de doublons sur deux colonnes. Un doublon sera alors une ligne dont la colonne B et E sont égales à celles d'une autre ligne.

Est-ce possible ? Merci d'avance.

Merci eriiic pour ta réponse. En fait j'ai simulé un exemple d'enregistrement ci dessous et je souhaite dans cet exemple que les lignes 3 (retrouvé en ligne 7), 8 (retrouvé en ligne 9) et 15 (retrouvé en ligne 16) disparaissent. Dans la 1ère colonne j'ai repris ta macro.

VRAI A 35509
FAUX B 35509
FAUX A 35510
VRAI B 35510
VRAI C 35510
FAUX D 35510
FAUX A 35510
FAUX A 40811
FAUX A 40811
FAUX A 23414
FAUX B 25100
FAUX B 26321
FAUX A 54233
FAUX C 43660
FAUX A 76987
FAUX A 76987
FAUX A 43555
FAUX A 56432
#N/A C 56432

Bonjour,

J'ai essayé d'effacer mes doublons via les differentes solutions suggerees mais ca ne marche toujours pas...

Jai une colonne ou il y a des doublons.

Par exemple:

pommes
pommes
pommes
poires
poires
poires
poires

Ce que j'aimerais c'est d'effacer les doublons, sans oublier de garder une ligne a chaque fois.

Je pourrais faire ca mannuellement mais jai des centaines de lignes...

Quelqu'un connait un moyen?

Une autre solution existe si vous travaillez sur des outils en ligne genre google drive, où là on peut manipuler et trier des colonnes mais avec beaucoup moins d'options que dans le logiciel xls.
J'ai rencontré des plantages en voulant manipuler des fichiers xls en ligne car mes fichiers contenaient plus de 50 000 adresses mails et le navigateur n'arrivait pas à gerer.
Une solution pour dédoublonner 1 colonne est de l'exporter (format csv par exemple : il va donc mettre 1 mail / ligne) et ensuite de dédoublonner sur ce genre d'outil en ligne gratuit : https://www.jerome-pasquelin.fr/tools/dedoublonner.php
L'outil va traiter le texte et dédoublonner si 2 lignes sont identiques pour ensuite fournir un contenu sans doublon.
Il suffit de réimporter dans excel ensuite. C'est un peu plus long mais c'est la seule solution que nous avons trouvé à l'heure actuelle pour traiter de gros formats de données sous Drive, sans installer de logiciel (à cause du partage collaboratif)