Autres (RESOLU)Colorier les doublons

[chaelie2015]

Bonsoir FORUM
Je cherche un code pour colorier les doublons,
dans mon fichier , j'ai inséré une forme verte (comme bouton) quand je clic sur ce bouton, il va colorier les doublons dans le colonne D ( a partir de D5).
Merci par avance

 

[Staple1600]

Bonjour


Je ne comprends pas ton fichier.
La colonne D est vide
(tu veux parler des doublons?)

 

[chaelie2015]

Bonjour


Je ne comprends pas ton fichier.
La colonne D est vide
(tu veux parler des doublons?)

Bonsoir JM
ci rattaché le bon fichier.
merci pour la remarque.
a+

 

[Staple1600]

Re


Essaies cette macro

Sub Marquer_Doublons()
Dim rng As Range
Set rng = Range([D4], Cells(Rows.Count, "D").End(3))
rng.FormatConditions.AddUniqueValues
rng.FormatConditions(rng.FormatConditions.Count).SetFirstPriority
With rng.FormatConditions(1)
    .DupeUnique = xlDuplicate
    .Borders.LineStyle = 1
    .Borders.Color = vbRed
    .Interior.Color = vbYellow
    .Font.Color = vbRed
    .Font.Bold = True
End With
End Sub

NB: Tu peux aussi passer par Mise ne forme conditionnelle/Valeurs en double
(C'est d'ailleurs ce que fait la macro )

 

[chaelie2015]

Bonsoir JM
C'est parafait.
merci pour la réponse.
a+