Couleur dans une cellule

[Trash]

Bonjour,

J'ai un gros probleme sur VBA Excel.

J'ai une cellule.

Dans cette cellule, j'ajoute un texte1 issu d'une checkbox, ce texte doit être affiché en rouge.

Ensuite, j'ajoute dans la même cellule à la suite du texte1, un texte2 qui doit être affiché en bleu

et ainsi de suite...

Je n'arrive pas à coordonner le coloriage avec la fonction Characters. Quelqu'un peut m'aider ?


If Form1.wellbore.Value = True Then
text3 = text3 & ', wellbore'
End If
If Form1.feet.Value = True Then
text3 = text3 & ', feet'
End If
len3 = Len(Range('O' & i))

With Range('O' & i)
.Value = Range('O' & i) & text3
.Characters(len3 + 1, Len(text3) + 1).Font.ColorIndex = 6
End With


Merci de votre aide !

 

[deudecos]

Salut Trash, le forum,

Je vais peut etre dire une anerie mais il me semble qu'on ne peux pas avoir plusieurs couleurs en meme temps dans la meme cellule...

Bonne soiree

Olivier

 

[andré]

Salut Olivier,

Eh oui, tu viens de dire une ânerie, et tu peux même mettre son bonnet !

Il n'est pas possible de mettre plusieurs motifs (couleurs de fond) sur une même cellule, mais autant de polices, de styles, de tailles et de couleurs de police que tu veux.

Mais en VBA je ne puis aider !

Bonne soirée.
Â+

 

[deudecos]

Salut Andre,

Et un zop ! Un !!! 🙂
et le pire c'est que je peux pas aider non plus !

Bonne soiree 😱

Olivier

 

[JYLL]

Bonsoir à tous,

Je joins une macro qui devrait faire l'affaire.

Bon test et à +.

Amicalement.

JYLL [file name=Ecrit_Couleur.zip size=10714]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Ecrit_Couleur.zip[/file]