une solution un peu à côté de la plaque mais sait-on jamais.
Message 28 in thread
De :Frédéric Sigonneau (frederic.sigonneau@wanadoo.fr)
Objet :Re: couleur
Groupes de discussion :microsoft.public.fr.excel
View this article only
Date :2001-12-21 06:28:36 PST
Bonjour,
Deux solutions déjà parues sur ce forum.
FS
--
Frédéric Sigonneau [né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
'=========================
'mettre en couleur une partie du texte d'une cellule
'Pascal Engelmajer, mpfe
Sub Appel()
Dim cell As Range
Set cell = Range("A1")
Colorie cell, 5, 5, 5
End Sub
Sub Colorie(cell As Range, debut%, longueur%, Couleur&)
cell.Characters(debut, longueur).Font.ColorIndex = Couleur
End Sub
'Autre solution (Excel 2000) : utiliser Split pour passer
'la place d'un mot à colorier dans une phrase
'fs
Sub MotEnCouleurDansCell(cell As Range, Nième%, Couleur&)
Dim tabMots, LeMot$, pos%
tabMots = Split(cell.Text)
LeMot = tabMots(Nième - 1)
pos = InStr(1, cell.Text, LeMot)
cell.Characters(pos, Len(LeMot)).Font.ColorIndex = Couleur
End Sub
Sub test()
'colorier en rouge (3) le 4ème mot du texte de la cellule A1
MotEnCouleurDansCell Range("A1"), 4, 3
End Sub
'=======================
JPH a écrit :
>
> je voudrai changer de couleur a l'interieur d'une cellule
> sans utiliser le formatage conditionel
> Example
> "Papa" en rouge et "Noel" en vert dans la meme cellule
>
> Merci
