Probleme coloriage

[teodormircea]

J'ai une macros modife qui doit mettre en bold et colorier certaine carcateres. Le probleme c\est que ca marche a moitie et ca colorie ce qui'il faut pas et j'ai des omission aussi.
Un petit conseil mersi

 

[teodormircea]

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

 

[teodormircea]

Re : Probleme coloriage

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

 

[teodormircea]

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