recherche de nom dans une liste

[michel]

bonjour à nouveau,
j'ai une 2e question :
dans une liste de noms, je souhaite faire une recherche pour savoir si un nom n'a pas déjà été inscrit, si oui, que la ligne se mette en couleur.

merci à tous, et bonne journée,

Michel

 

[Eric C]

Bonjour le forum
Bonjour Michel

Ceci peut être à placer dans un module :

Sub Colorer_Doublons()
Dim vCell As Object
Selection.Sort key1:=ActiveCell, order1:=xlAscending, _
header:=xlGuess, MatchCase:=False, Orientation:=xlTopToBottom

For Each vCell In Selection
If vCell.Value = vCell.Offset(1, 0) Then
vCell.Font.ColorIndex = 3
End If
Next
Range("A1").Select
End Sub

Bon Ouikand à toutes & à tous
@ ++ Eric C