CB60
XLDnaute Barbatruc
Bonjour
Je cherche à faire une macro pour colorier entre deux caractères, mais je ne trouve pas la syntaxe.
si vous avez une idée!!
Merci
Je cherche à faire une macro pour colorier entre deux caractères, mais je ne trouve pas la syntaxe.
Code:
Sub couleur()
mot = "^« *"
mot1 = "* »$"
mot2 = mot & mot1
For Each c In Range("A2:A" & [A65000].End(xlUp).Row)
p = InStr(UCase(c), UCase(mot2))
If p > 0 Then c.Characters(Start:=p, Length:=Len(mot2)).Font.ColorIndex = 3
Next c
End Sub
Merci