couleur partie de texte dans formule

Bonjour Thierry K.

C'est possible avec VBA en mettant du texte en A1:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Not Intersect(Target, Range("Z23")) Is Nothing Then

Range("A1").Formula = "votre participation est de " & Range("F2") & "
euros"

b = Len(Range("A1").Formula) - 27

With Range("A1").Characters(Start:=1, Length:').Font

.ColorIndex = xlAutomatic
End With
With Range("A1").Characters(Start:(, Length:=b).Font

.ColorIndex = 42
End With

End If

End Sub

docm


"Thierry K" <thierryx.kolby@zsncf.fr> wrote in message
news:448d4b96$1@news.sncf.fr...

Bonjour à toutes & à tous

je souhaiterai qu'une partie du texte édité par une formule soit de
couleur

différente (bleue par exemple)

en A1, j'ai
="votre participation est de "&Z3&" euros"

et je voudrai que la valeur de Z3 et "euros" soient en bleu
le reste de la formule gardant bien sur la couleur par défaut


est ce possible?

office XP pro
--
en vous remerciant d'avance pour votre aide

Merci et @+

Pour répondre, Enlever xyz de mon adresse e-mail

Thierry K

Bonjour à toutes et à tous
merci pour ton aide
Ok en VBa
mais pas possible avec des fonctions. dommage!

Office Pro 2003
Win XP Pro SP2

Merci d'avance pour vos conseils

pour répondre, enlever w x y z

Thierry K
"docm" <no_spam@trust.net> a écrit dans le message de news:
eUvsJMjjGHA.1264@TK2MSFTNGP05.phx.gbl...

Bonjour Thierry K.

C'est possible avec VBA en mettant du texte en A1:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Not Intersect(Target, Range("Z23")) Is Nothing Then

Range("A1").Formula = "votre participation est de " & Range("F2") & "
euros"

b = Len(Range("A1").Formula) - 27

With Range("A1").Characters(Start:=1, Length:').Font

.ColorIndex = xlAutomatic
End With
With Range("A1").Characters(Start:(, Length:=b).Font

.ColorIndex = 42
End With

End If

End Sub

docm


"Thierry K" <thierryx.kolby@zsncf.fr> wrote in message
news:448d4b96$1@news.sncf.fr...

Bonjour à toutes & à tous

je souhaiterai qu'une partie du texte édité par une formule soit de
couleur

différente (bleue par exemple)

en A1, j'ai
="votre participation est de "&Z3&" euros"

et je voudrai que la valeur de Z3 et "euros" soient en bleu
le reste de la formule gardant bien sur la couleur par défaut


est ce possible?

office XP pro
--
en vous remerciant d'avance pour votre aide

Merci et @+

Pour répondre, Enlever xyz de mon adresse e-mail

Thierry K