Indices de doublons

Bonjour,

J'ai un code pour trouver les doublons d'une colonne, mais j'aimerais que un peu comme widows lorsque il y a un doublon, il y ai un indice.

Ex: 2456, 2456(2),2456(3).

Je vous joint mon code

Sub Doublon()

    Dim Plage As Range
    Dim Cel As Range

    With Sheets("TRAVAIL")

       Set Plage = .Range(.Cells(3, 3), .Cells(.Rows.Count, 3).End(xlUp))

    End With

   For Each Cel In Plage

        If Application.CountIf(Plage, Cel.Value) > 1 Then
            Cells(Cel.Row, 4) = Cel.Value
        End If

    Next Cel

End Sub

Je ne vois pas comment faire car il y a +/- 50000 référence a traiter.

Merci D'avance

Bonjour,

pas vraiment besoin de macro pour si peu.
En D2 : =NB.SI($C$1:C2;C2)

Ou si tu préfères :
=SI(NB.SI($C$1:C2;C2)=1;"";NB.SI($C$1:C2;C2))
eric

Bonsoir,

Ou alors si tes valeurs débute dans la colonne A1

Mettre cette formule en B1 et tirer vers le bas

=SI(NB.SI($A$1:A1;A1)>1;"Doublon de "&A1;"ok")

Slts

Merci Eriiiic,

Par hasard comment faire pour noter le chiffre 1 devant le premier et puis 2-3-4 sur les autres occurrences.

J'ai essayé mais cela indique un 1 sur toute les autres références, même si il y a pas de doublons.

Bonjour,

Un exemple.

Dans ce cas : =SI(NB.SI(C:C;C2)=1;"";NB.SI($C$1:C2;C2))
eric