Probleme coloriage

Re : Probleme coloriage

J'ai fait une modif mais j"ai toujours un petit soucis ca veux pas colorier les lettere des premieres series j'ai un exemple en piece attache

Re : Probleme coloriage

je croix que j'ai un probleme de declaration variables. quand je met au format texte ca marche.

Re : Probleme coloriage

j'ai trouve une solution voila le code pour ceux qui ont besoin.
Sub test()
Dim r As Range, rng As Range
Set rng = Range("k1", Range("k" & Rows.Count).End(xlUp))
With CreateObject("VBScript.RegExp")
.Pattern = "[0O]"
.IgnoreCase = True
.Global = True
For Each r In rng
r.NumberFormat = "@"
r.Value = r.Text
If .test(r.Text) Then
For Each m In .Execute(r.Text)
r.Characters(m.FirstIndex + 1, m.Length).Font.ColorIndex = 3
r.Font.Bold = True
Next
End If
Next
End With
End Sub