colorié des cellules avec ajout de caractère

[arvin]

bonjour à tous !

ai fait une macro qui colore en rouge si une cellule est identique à une autre (dans une plage de cellules défini) et dans des onglets différents (feuil 1 et feuil2)
ce qui m'intéresserait c'est que la macro fonctionne aussi si un caractère est rajouté à la fin de la cellule

soit : "jean" dans plage défini feuil 1 en rouge car "jean" feuil2 = "jean" feuil 1 dans même plage de cellule

et aussi "jean $" en rouge car "jean $" = "jean" dans plage de cellule et onglet
(le caractère est toujours $)

ci joint macro

merci

Sub couleur()
ActiveSheet.Unprotect
Dim ws1, ws2, zonetotalbis, feuillesbis
Dim c, d, e, f, g, h, i, j, k, aa As Range, Cel As Range
Dim s As Byte

'plage de cellule
Range("D20:E26").Select

Dim lacellule As Range
For Each aa In Selection
aa = Trim(aa)
aa.Replace what:=Chr(13), replacement:=""
Next aa

zonetotalbis = Array("d20:e26")
feuillesbis = Array("feuil1", "feuil2")


'mise en couleur zonetotalbis
For Each ws1 In feuillesbis
For s = 0 To UBound(zonetotalbis)
For Each c In Sheets(ws1).Range(zonetotalbis(s))
If Not c = "" Then
For Each ws2 In feuillesbis
If Sheets(ws2).Name <> Sheets(ws1).Name Then
For Each Cel In Sheets(ws2).Range(zonetotalbis(s))
If Cel = c Then Cel.Font.ColorIndex = 3
Next Cel
End If
Next ws2
End If
Next c
Next s
Next ws1


End Sub

 

[Speel]

Re : colorié des cellules avec ajout de caractère

bonsoir,

une façon de faire ...

 

[arvin]

Re : colorié des cellules avec ajout de caractère

merci Speel cela a l'air parfait
j'adapte ce soir mais cela me plait
merci

 

[Speel]

Re : colorié des cellules avec ajout de caractère

merci Speel cela a l'air parfait
j'adapte ce soir mais cela me plait
merci

Bonsoir ,
Alors cette adaptation , c'est bon ?