Cellule Tetxe et couleur

Exemple pour A1 avec affichage du texte ("fifi") en Rouge
Format > MEFC (mise en forme conditionnelle) > la formule est :
¡="riri"

format >Rouge.....>OK

AV

Merci pour tes infos, mais ce n'est pas exactement ce que je veux faire. Par
exemple, je veux que mon code vba affiche dans une cellule le texte suivant:
"Vous avez sélectionné GRAND . Attention!"
Seul le mot "grand" devrait être en rouge, si possible.

"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
e0S97Mx7EHA.2012@TK2MSFTNGP15.phx.gbl...

Exemple pour A1 avec affichage du texte ("fifi") en Rouge
Format > MEFC (mise en forme conditionnelle) > la formule est :
¡="riri"

format >Rouge.....>OK

AV

ppfffffffff !

-----Original Message-----
Exemple pour A1 avec affichage du texte ("fifi") en Rouge
Format > MEFC (mise en forme conditionnelle) > la
formule est :

¡="riri"

format >Rouge.....>OK

AV


.

En VBA, ce code peut te servir de point de départ :

Sub MetUnMotEnCouleur()
Dim LaPhrase As String, LeMot As String
LaPhrase = "Bonjour, nous sommes le 31 décembre"
LeMot = "décembre"
pos = InStr(1, LaPhrase, LeMot)
With Range("A1")
.Value = LaPhrase
.Characters(pos, Len(LeMot)).Font.Color = vbRed
End With
End Sub

--
Gaenonius

Bonjour,
Je développe une application sous excel et vba. Suite à un calcul, je
voudrai afficher du texte dans une cellule, avec la particularité d'avoir un
mot de ce string en rouge. Est ce possible ?
Merci de vos réponses.

Merci Ganenonius.
"Gaenonius" <noname@nowhere> a écrit dans le message de news:
uF29wLy7EHA.1400@TK2MSFTNGP11.phx.gbl...

En VBA, ce code peut te servir de point de départ :

Sub MetUnMotEnCouleur()
Dim LaPhrase As String, LeMot As String
LaPhrase = "Bonjour, nous sommes le 31 décembre"
LeMot = "décembre"
pos = InStr(1, LaPhrase, LeMot)
With Range("A1")
.Value = LaPhrase
.Characters(pos, Len(LeMot)).Font.Color = vbRed
End With
End Sub

--
Gaenonius

Bonjour,
Je développe une application sous excel et vba. Suite à un calcul, je
voudrai afficher du texte dans une cellule, avec la particularité d'avoir
un mot de ce string en rouge. Est ce possible ?
Merci de vos réponses.

Dans ce cas tu es obligé de passer par une proc évènementielle pour la mise à
jour en fonction du résultat du calcul :
Dans le module de la feuille et pour A1 :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
If zz = "Vous avez sélectionné GRAND . Attention!" Then
With zz.Characters(23, 5).Font
.Color = vbRed
.FontStyle = "gras"
End With
End If
End Sub

AV