Question à 10 Francs

[good57]

Bonjour,

Sur Excel, est-il possible de créer une forme et de lui attribuer une couleur en fonction du contenu d'une cellule ?

Merci

 

[good57]

Re : Question à 10 Francs

Ou alors est-il possible de modifier le texte d'une forme en utilisant la fonction "Blablablabla ...."&B15&"Blablabla ..."

 

[BOISGONTIER]

Re : Question à 10 Francs

Bonjour,

cf Les images et shapes

Function ColorieImage(s, couleur)
  Application.Volatile
  Set f = Sheets(Application.Caller.Parent.Name)
  f.Shapes(s).Fill.ForeColor.RGB = couleur
  ColorieImage = ""
End Function

Function modifieTexte(nomImage, libellé)
  Application.Volatile
  Set f = Sheets(Application.Caller.Parent.Name)
  f.Shapes(nomImage).TextFrame.Characters.Text = libellé
  modifieTexte = ""
End Function

JB

 

[good57]

Re : Question à 10 Francs

Merci JB, je pense que je devrais arriver à qqch avec ça

 

[good57]

Re : Question à 10 Francs

Je ne trouve pas comment définir la couleur que je souhaite ... où puis-je trouver les codes couleurs ?

 

[BOISGONTIER]

Re : Question à 10 Francs

Function CouleurCellule(c As Range)
Application.Volatile
CouleurCellule = c.Interior.Color
End Function

JB

 

[good57]

Re : Question à 10 Francs

Nan, en fait je cherche à connaitre le code couleur pour du rouge ? pour du bleu ? du vert ? etc ...

 

[good57]

Re : Question à 10 Francs

Je souhaite utiliser ce code dans la fonction COLORER()

 

[13GIBE59]

Re : Question à 10 Francs

Bonjour tout le monde, bonjour Good57

En pièce jointe, ce que tu souhaites.

Cordialement.

 

[good57]

Re : Question à 10 Francs

Bonjour 13GIB59,
Non, c'est pas vraiment ça que je cherchais ...
J'ai réussi à trouver mes couleurs en y allant à taton.
J'ai trouvé un vert 1250000 avec le nombre et un rouge avec le nombre 125000

 

[Dranreb]

Re : Question à 10 Francs

Bonjour.
Dans du code vous pouvez les taper en hexadécimal précédé de &H
Vous tâtonnerez un peu moins parce que ce sont des groupes de 2 caractères pour le bleu, vert, rouge. Le bleu c'est donc &HFF0000.
Sinon il y a aussi RGB(r, v, b)

J'ai trouvé un vert 1250000 avec le nombre et un rouge avec le nombre 125000

non c'est l'inverse:
1250000 = &H01312D0& dominante rouge sale proche de &H000000D3&.
125000 = &H0001E848& dominante verte tirant légèrement vers le jaune proche de &H0000E65C&

 

[BOISGONTIER]

Re : Question à 10 Francs

Il suffisait de regarder le Post #6 au lieu de répondre Non!

La fonction CouleurCellule(cel) donne le code d'une couleur.

JB

 

[good57]

Re : Question à 10 Francs

Merci Dranreb, mais je n'étais pas en VBA pour le coup... j'étais dans une formule

 

[Dranreb]

Re : Question à 10 Francs

Vous avez la fonction HEXDEC pour convertir en nombre un texte hexadécimal.

 

[tototiti2008]

Re : Question à 10 Francs

Bonjour à tous ,

si vous voulez les couleurs de thèmes, j'avais fait ça