Doublons

[eutrophisation]

Bonjour tout le monde

Pouvez vous m'indiquer un code permettant d'identifier des doublons par rapport à toute la ligne. Si les valeurs d'une ligne sont les memes que celles d'une autre ligne cette derniere se colore.
La plage concernée est C10:BA2000
MERCI

 

[eutrophisation]

Re : Doublons

Merci c'est ce que je souhaitais cependant je vous demanderais de l'adapter à mon fichier la plage concernée est B5:GS1000.
J'ai tenté de l'ajuster mais je me suis heurté à des messages d'erreur.
SALUTATIONS SPORTIVES

 

[laetitia90]

Re : Doublons

bonjour eutrophisation,masterdisco
une version simple une seule couleur!!! si ca peut convenir

Sub es()
 Dim m As Object, i As Long, z, t As Variant, c As Byte
 Application.ScreenUpdating = False
 Set m = CreateObject("Scripting.Dictionary")
 t = Range("b5:gs" & Cells.Find("*", , , , , xlPrevious).Row)
 For i = 1 To UBound(t)
 For c = 1 To 200: z = z & t(i, c): Next c
 If Not m.Exists(z) Then m.Add z, z Else Rows(i + 4).Interior.ColorIndex = 3
 z = ""
 Next i
 End Sub

 

[eutrophisation]

Re : Doublons

Merci pour ce programme de masterdisco