rendre certains nombres dans une cellule plus visibles

pascal21 · 3 Avril 2007

Code:

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 · 3 Avril 2007

Re : rendre certains nombres dans une cellule plus visibles

bonjour Pascal21

une petite macro supposant le texte en cellule A1

Code:

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 · 4 Avril 2007

Re : rendre certains nombres dans une cellule plus visibles

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

pascal21 · 4 Avril 2007

Re : rendre certains nombres dans une cellule plus visibles

Code:

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

rendre certains nombres dans une cellule plus visibles

pascal21

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

pascal21

XLDnaute Barbatruc

pascal21

XLDnaute Barbatruc

Discussions similaires

rendre certains nombres dans une cellule plus visibles

pascal21

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

pascal21

XLDnaute Barbatruc

pascal21

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency