rendre certains nombres dans une cellule plus visibles

[pascal21]

10 trajet(s) 4 + 0 trajet(s) 3 + 1 trajet(s) 2+ 0 trajet(s) 1

bonjour le forum
la ligne ci-dessus est le résultat d'une formule dans une seule cellule
je cherche le moyen de rendre un peu plus visible le nombre de trajets par rapport aux mots "trajets"
que le nombre "10" soit en rouge par exemple
ou autre chose si vous avez d'autres idées
merci

 

[pierrejean]

Re : rendre certains nombres dans une cellule plus visibles

bonjour Pascal21

une petite macro supposant le texte en cellule A1

Sub Macro1()
Dim n As Integer
For n = 1 To Len(Range("A1")) - 1
If IsNumeric(Mid(Range("A1"), n, 1)) Then
Range("A1").Characters(n, 1).Font.ColorIndex = 3
End If
Next n
End Sub

 

[pascal21]

Re : rendre certains nombres dans une cellule plus visibles

bonsoir et merci pour la réponse
je vais essayer tout de suite

 

[pascal21]

Re : rendre certains nombres dans une cellule plus visibles

4  Trajet 4           1  Trajet 3           0 Trajet 2           0  Trajet 1          reste 2,19  €

voilà au final ce que j'ai dans ma cellule
le code transforme tous les caractères en rouge