probleme suppression doublon

[cedoced]

bonjour à tous,

j'ai un soucis, j'ai toutes une liste d'adresse mail, malheureusement, il y a bcp de doublons, et lorsque je fais données, supprimer les doublons, il me dit qu'il a supprimé x doublons, alors que rien n'a changé ils sont tous là, comment puis-je faire pour les supprimer?

Merci pour votre réponse.

 

[mromain]

Re : probleme suppression doublon

Bonjour cedoced,

Voici un exemple en macro à adapter :

Sub Test()
Dim plageDonnees As Excel.Range, laCell As Excel.Range, monDico As Scripting.Dictionary
    
    'adapter la plage de données (mails avec les doublons)
    Set plageDonnees = ThisWorkbook.Sheets("Feuil1").Range("A1:A10")
    
    Set monDico = CreateObject("Scripting.Dictionary")
    On Error Resume Next
    For Each laCell In plageDonnees.Cells
        monDico.Add laCell.Text, laCell.Text
    Next laCell
    With ThisWorkbook.Sheets.Add
        .Range("A1").Resize(monDico.Count, 1).Value = Application.WorksheetFunction.Transpose(monDico.Items)
        .Name = "Sans doublons"
    End With
End Sub

a+