aide doublon

[irenee]

Bonjour Tous
J'aimerai écrire une macro excel qui identifie les doublon et leur attibue le meme code dans une autre colenne. Il existe une formule excel pour le faire, mais lorsqu'on a un nombre important de sujet, le tableau deviens lourd
Exemple
Code Nom
1 Jean
2 Jacques
3 Pierre
1 Jean
4 Jude
5 Jesus
1 Jean
6 honoré
7 Marcelle
1 Jean

 

[Cousinhub]

Re : aide doublon

Bonsoir,

essaie avec ce code :

Sub memes_num()
Dim MesNums As Object, Cel As Range
Set MesNums = CreateObject("Scripting.Dictionary")
For Each Cel In Range("B2:B" & [B65000].End(xlUp).Row)
    If Not MesNums.Exists(Cel.Value) Then
        MesNums.Add Cel.Value, Cells(Cel.Row, 1).Value
    Else
        temp2 = MesNums.items
        temp1 = MesNums.keys
        For i = 0 To MesNums.Count
            If temp1(i) = Cel.Value Then Cells(Cel.Row, 1).Value = temp2(i): Exit For
        Next i
    End If
Next Cel
End Sub