Autres Mettre une partie d'un texte en couleur sur des cellulles

[nes31]

Bonjour,
Je suis en train de créer un catalogue en interne et j'aurai besoin d'aide, pour un souci avec une macro.
Je ne sais pas si cela est réellement possible, voici ma demande :
dans une cellule avec un texte, je voudrais mettre en rouge ma référence du diamètre d'outil dans le "Catalogue foret"
exemple 1er réf : le "Ø2", ainsi de suite. En sachant que je n'ai pas toujours la même dimensions de lettre avant le Ø.
Pensez vous cela possible ?
Dans l'attente, je vous remercie par avance.
Bonne journée,

 

[mapomme]

Bonsoir @nes31,

Essayez:

Sub MettreEnRouge()
Dim deb&, fin&, c
  With Sheets("Catalogue foret")
    For Each c In .Range("b2:b" & .Cells(.Rows.Count, "b").End(xlUp).Row)
      deb = InStr(c, "Ø")
      If deb > 0 Then
        fin = InStr(deb, c, " ")
        c.Font.ColorIndex = xlColorIndexAutomatic
        c.Characters(deb, fin - deb).Font.ColorIndex = 3
      End If
    Next c
  End With
End Sub

edit : un bonsoir caniculaire à @Jacky67

 

[nes31]

Bonjour Mapomme,

C'est merveilleux, merci beaucoup pour ton aide précieuse. Je te remercie de ta réactivité.
Bonne continuation.