Tier une liste de nom et prénom pour trouver les doublons

Bonjour,

Voilà, j'ai une liste (au combien longue) de noms et prénoms.

Mon soucis c'est les doublons.

Pas les doublons "Pierre Dupont, et Pierre Dupont", ça je sais faire.

Le problème viens quand il y a "Pierre Dupont et Dupont Pierre", dans la même colonne évidement . C'est bien la même personne, mais ça reste un doublon...

Que faire Please ?

Hello,

Your workbook, please.

Bonjour toutes et tous

pourquoi ne pas simplifier ( voir image jointe) :

crdlt,

André

Bonjour,

Aucun moyen sûr (ni simple) s'il n'y a pas distinction initiale d'un champ Nom et d'un champ Prénom !

Même en faisant appel à une base de Prénoms, dans le cas de noms homonymes de prénoms tu te trouveras en présence de 2 prénoms dont tu ne pourras décider lequel est le Nom...

Il conviendrait d'abord de voir si d'autres informations sont susceptibles d'apporter des éléments complémentaires...

Cordialement.

Exemple :

Tata Yoyo

Yoyo tata

Peux importe la casse ou peux importe celui qui reste, il me faut supprimer l'un des deux.

Je n'ai qu'un colonne avec une liste

Bonjour à tous,

Je doute que ce soit aussi simple

Option Explicit
Sub test()
Dim a, i As Long, x, dico As Object
    Set dico = CreateObject("Scripting.Dictionary")
    dico.CompareMode = 1
    With Sheets(1)
        With .Range("a1", .Range("a" & .Rows.Count).End(xlUp))
            a = .Value
            For i = 1 To UBound(a, 1)
                x = Split(a(i, 1))
                If Not dico.exists(x(0) & " " & x(1)) And Not dico.exists(x(1) & " " & x(0)) Then
                    dico(x(0) & " " & x(1)) = Empty
                End If
            Next
            .Offset(, .Columns.Count + 1).Resize(dico.Count).Value = Application.Transpose(dico.keys)
        End With
    End With
End Sub

Ne compter pas sur moi pour manipuler les chaines de caractères

klin89

Merci, mais la macro me renvoi une erreur ligne 9

If Not dico.exists(x(0) & " " & x(1)) And Not dico.exists(x(1) & " " & x(0)) Then