XL 2013 trouver adresse de la première valeur repetée [RESOLU]

[moutchec]

bonjour à tous,
je ne sais pas comment formuler ça dans un code VBA, donc je me tourne vers votre expertise.
comment faire pour trouver l'adresse de la première valeur répétée en colonne A?
dans l'exemple ci-joint, 4 et la valeur recherchée est 5 qui correspond au numéro de la ligne ou le chiffre 4 est répété.
je vous remercie.
Moutchec

 

[frangy]

Bonjour,

Sub Test()
Dim Plage As Range, Cel As Range
    Set Plage = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
    For Each Cel In Plage
        If Application.CountIf(Range("A1", Cel), Cel.Value) > 1 Then
            MsgBox "Valeur : " & Cel.Value & Chr(10) & _
            "Ligne :" & Cel.Row
            Exit Sub
        End If
    Next Cel
End Sub

Cordialement.

 

[Hasco]

Bonjour,

Par formule dans le fichier joint.

Bon après-midi

 

[moutchec]

Bonjour,

Sub Test()
Dim Plage As Range, Cel As Range
    Set Plage = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
    For Each Cel In Plage
        If Application.CountIf(Range("A1", Cel), Cel.Value) > 1 Then
            MsgBox "Valeur : " & Cel.Value & Chr(10) & _
            "Ligne :" & Cel.Row
            Exit Sub
        End If
    Next Cel
End Sub

Cordialement.

merci à vous, c'est bien ce que je cherchais.
cordialement.
Moutchec