[XL-2007] Deux listes de noms possedant des formats differents

[Automnep]

Bonjour,

Il s'agit d'un probleme a priori tres simple. J'ai deux colonnes dans classeur, une colonne "propre", ou les noms sont tous au meme format, ecris de la maniere suivante :

Darren Cockings
Marie Byrne
Mark Watton
Robin Keates

et une colonne "sale", B, ou les noms ne respectent aucun format, et sont ecris ainsi :

Melville K
Mrs Diane Stuart
Malia A
Mr Martin Bridge
Lisa Simmons


Je cherche a faire apparaitre les doublons, c'est a dire les noms que l'on retrouve a la fois dans A et dans B, par exemple :

Lisa Simmons - L Simmons

Connaissez vous une methode simple permettant de traiter ce genre de donnees ?

[casefayere]

Bonjour,
1ere approche, attention qui va comparer également "M" et "M", "Mr" et "Mr", etc.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub doublon()
Dim dl1 As Long, dl2 As Long
Dim cel1 As Range, cel2 As Range
Dim plage1 As Range, plage2 As Range
Dim verif1, verif2, x As Integer, y As Integer
'tes colonnes A et B
With Sheets("feuil1") 'ta feuille
    dl1 = .Range("A" & .Rows.Count).End(xlUp).Row
    dl2 = .Range("B" & .Rows.Count).End(xlUp).Row
    Set plage1 = .Range("A2:a" & dl1)
    Set plage2 = .Range("B2:B" & dl2)
    For Each cel1 In plage1
        verif1 = Split(cel1)
        For Each cel2 In plage2
            verif2 = Split(cel2)
            For x = 0 To UBound(verif1)
                For y = 0 To UBound(verif2)
                    If UCase(verif1(x)) = UCase(verif2(y)) Then
                        MsgBox "2 similitudes " & verif1(x) & "=>" & verif2(y)
                    End If
                Next y
            Next x
        Next cel2
    Next cel1
End With
 
End Sub

[Automnep]

Bonjour Casefayere & merci pour ta reponse.

J'ai adapte ta formule a ma feuille et cela marche, sauf que je crois qu'il s'agit d'une boucle infinie, et j'ai beau appuyer sur Ok ou Fermer sur la message box qui apparait, le programme ne s'arrete jamais.

Comment puis-je faire pour l'arreter sachant que je n'ai pas sauvegarder le reste de mon travail ?

Par ailleurs, est-il possible de faire apparaitre les doublons dans une colonne a cote plutot que dans une chatbox ?

Mom tableau possede pres de 20 000 entrees, je ne peux noter a la main chaque doublon qui apparait dans la message box !

Mais merci beaucoup, cela semble bien marcher.

[casefayere]

Pour la boucle infinie, il faudrait voir ton fichier car j'ai fait un essai sans problème.
Pour l'arrêter, "ctrl" + "pause" et au message =>"fin"

Quant à la destination du résultat, je n'ai mis qu'un exemple qu'on peut adapter