J essaye désespérément de supprimer les emails en doublons

Bonjour,

Please, quelqu'un pourrait-il m'expliquer comment fait-on pour supprimer des emails en doublons sur Excel- j'ai déjà essayé plusieurs formules sans aucun succès (http://www.pcastuces.com/pratique/astuces/1438.htm ou encore

- à chaque fois, je retrouve toujours mes mails en doublons- avez-vous une astuce ou dois-je télécharger la nouvelle version?

merci!!

Bonjour serena. Bienvenue

Il existe tellement de façons de supprimer les doublons.

Quand tu écris:

dois-je télécharger la nouvelle version?

Que faut-il comprendre? Quelle nouvelle version?

Ci-joint quelques solutions supplémentaires sur des...emails

https://www.excel-pratique.com/~files/doc/EP.zip

Si cela ne suffit pas, regarde joindre un fichier, en haut de cette page et envois le tien

Cordialement

En fait, j 'essaye cette formule-ci dans la colonne C:

=SI(EQUIV(B2:B5970;B2:B5970;0)=LIGNE(); "ok"; "doublon")

B2 repsésentant le 1er email et

B5970 reprséntant le dernier email de ma colonne B

Bien le système me note 'doublon' pour le 1er et dernier email comme s'il ne tenait pas compte de toutes les valeurs comprises entre B2 et B5970- donc je me demande juste si je n'ai pas une erreur dans ma formule

Merci pour vos réponses

Bonsoir,

Essaye :

=SI(SOMMEPROD(($B$1:$B1=$B2)*($B2<>"") )=0;"";"DOUBLON")

Amicalement

Nad & Dan

edit : Ou en supposant que la ligne 1 comporte les titres, dans la cellule A2, mets cette formule --> =SI(SOMMEPROD(($B$1:$B1=$B2)*($B2<>""))>=1;"doublon";"ok")

Dan & Nad

Supprimé

Dan

Re bonjour

A quoi bon chercher des formules si tu ne les mets pas en application:

pcastuces, top-assistante

=SI(NB.SI($B$1:B1;B1)>1;"Doublon";"")

=SI(EQUIV(B:B;B:B;0)=LIGNE(); "ok"; "doublon")

Elles marchent pourtant toutes les deux!! La peuve.

https://www.excel-pratique.com/~files/doc/aGuyfClasseur5.xls

Cordialement

merci à vous tous- je vais mettre en exécution de suite!

Bonjour,

et pour répondre à la question : "supprimer des emails en doublons", regarde le fichier joint

le code :

Sub mails_sans_doublons()
Application.ScreenUpdating = False
    Columns("B:B").Insert Shift:=xlToRight
    [B1] = [A1]
    Range("A1:A" & [A65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "B1"), Unique:=True
    Columns("A:A").Delete Shift:=xlToLeft
Application.ScreenUpdating = True
End Sub

le fichier :

https://www.excel-pratique.com/~files/doc/doublons_mails.zip