Couleur de texte dans une cellulle Excel [Résolu]

Signaler
Messages postés
31
Date d'inscription
mercredi 28 juin 2006
Statut
Membre
Dernière intervention
9 janvier 2009
-
Messages postés
1
Date d'inscription
samedi 24 mars 2007
Statut
Membre
Dernière intervention
26 juin 2009
-
Bonjour,

Je cherche a mettre un texte d'une cellule Excel une couleur spécfique (par rapport a plusieurs variables) Je sais comment récuperer les données dont j'ai besoin la seule chose qu'il me manque c'est une petite ligne qui me permette de dire : Dans la Cellule H5 tu met le texte en XXX.

13 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
55
Salut,

Range("H5").Font.Color = vbRed 'Pour du rouge par exemple
Range("H5").Font.Color = RGB(120, 150, 230) ' pour controle les differente composantes Rouge Vert et Bleu de ta couleur

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
55
Salut,
Cela n'est pas la premiere fois que tes copier coller te joue des tour...
Si tu regarde bien Coultg, et Coultb ne prenne aucune valeur c'est Coultr qui prends respectivement les valeur de B7 C7 et D7...D'ou le rouge pétant si D7 contient 255 car Coultg 0 et Coultb  0
Soit RGB(255,0,0) => Rouge pétant.

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
31
Date d'inscription
mercredi 28 juin 2006
Statut
Membre
Dernière intervention
9 janvier 2009

Rapide et précis merci ;)
Messages postés
31
Date d'inscription
mercredi 28 juin 2006
Statut
Membre
Dernière intervention
9 janvier 2009

Encore une petite question ;) Car en fait je t'explique le truc je veux mettre un texte d'une couleure variable sur un fond d'une couleure variable le problème c'est que j'ai l'impression que mon texte prend en compte le fond ... Comme une sorte de transparence ... Un exemple j'ai tester avec un fond bordeau un texte en blanc ... mais mon texte apparait en rouge pétant ... Je ne comprend pas vraiment d'ou cela viens ...

Mon code :

Private Sub AfficheCoul_Click()
Dim Coulfr As Integer
Dim Coulfb As Integer
Dim Coulfg As Integer
Dim Coultr As Integer
Dim Coultb As Integer
Dim Coultg As Integer
'Récupère les composante Rouge
Coulfr = ActiveSheet.Range("B3").Value
Coultr = ActiveSheet.Range("B7").Value
'Récupère les composante Verte
Coulfg = ActiveSheet.Range("C3").Value
Coultr = ActiveSheet.Range("C7").Value
'Récupère les composante Bleu
Coulfb = ActiveSheet.Range("D3").Value
Coultr = ActiveSheet.Range("D7").Value

'Couleur du fond
ActiveSheet.Range("H4").Interior.Color = RGB(Coulfr, Coulfg, Coulfb)
'Couleur du texte
ActiveSheet.Range("H4").Font.Color = RGB(Coultr, Coultg, Coultb)
'Texte
ActiveSheet.Range("H4").Value = "Texte ..."
End Sub
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
55
Re,
Sans connaitre les valeurs les valeurs comprises dans B3, B7, C3, C7, D3, D7
J'aurais du mal à connaitre le résultat de RGB(Coultr, Coultg, Coultb)
Peu etre que ce résultat n'est pas blanc... Mais Rouge pétant comme tu dis.
@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
31
Date d'inscription
mercredi 28 juin 2006
Statut
Membre
Dernière intervention
9 janvier 2009

255 255 255 pour le texte ...
Messages postés
31
Date d'inscription
mercredi 28 juin 2006
Statut
Membre
Dernière intervention
9 janvier 2009

Merci ... J'ai honte
Messages postés
3
Date d'inscription
mercredi 26 novembre 2008
Statut
Membre
Dernière intervention
27 novembre 2008

realpapara
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
55
Salut,

>[../auteur/REALPAPARA/1536179.aspx realpapara ]: oui d'accord mais encore???[../reglement.aspx Voir le règlement de CodeS-SourceS]
@+: Ju£i€n
Pensez: Réponse acceptée
Messages postés
3
Date d'inscription
mercredi 26 novembre 2008
Statut
Membre
Dernière intervention
27 novembre 2008

realpapara
Excuse moi mais c'est la 1ère fois que je tchate sur ce site. Je suis débutant en vba, je ne connais rien, mais grâce à vous, je commence à comprendre certaine chose. Je cherche actuellement à colorier une cellule en fonction de 6 conditions. La solution proposé est bonne mais je veux que la couleur change automatiquement car de suis en train de créer un planning de travail.
Merci
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
55
Salut,
Une seule question par topic, repose une nouvelle question dans le forum, ce sujet est déjà clos depuis un AN.

@+: Ju£i€n
Pensez: Réponse acceptée
Messages postés
3
Date d'inscription
mercredi 26 novembre 2008
Statut
Membre
Dernière intervention
27 novembre 2008

realpapara
ok
Merci
Messages postés
1
Date d'inscription
samedi 24 mars 2007
Statut
Membre
Dernière intervention
26 juin 2009

Bonjour
Non ce n'est pas exactement cela que je veux,
J'ai plusieurs rubriques au total 6 j 'ai mis tropis format conditonnel et des que je metx du texte en format personnalisé [rouge]["fermé"] cela ne fonctionne pas meme avec [rouge]="fermé"
quel est la syntaxe exacte
cordialement

Alain YVONET