Modifier couleur d'une forme insérée dans une feuille excel, selon valeur de cellule

[tweety57]

Bonjour à tous,

Je suis entrain de remanier le tableau de bord sécurité de l'entreprise et souhaiterait le rendre plus attrayant à l'affichage.
J'ai utilisé des feux tricolores et des tachymètres pour mes indicateurs, il me reste uniquement celui sur le taux de gravité (TG) des accidents.
Je voudrais le faire de manière différente.
J'ai inséré une image représentant une main soignée et ensuite une croix (insertion/forme/croix).
Je voudrais que la croix change de couleur en fonction de mes valeurs de TG mensuelle (à l'objectif = vert, entre 0 et 2 = orange, plus de 2 = rouge).
1 croix par mois (donc 1 valeur).

Je ne sais pas si cela est faisable et si non auriez-vous une idée pour réaliser un indicateur rapprochant de ce que je voudrais faire?

Merci d'avance.

 

[BOISGONTIER]

Re : Modifier couleur d'une forme insérée dans une feuille excel, selon valeur de cel

Bonjour,

Renommer les croix : Janvier,fevrier,mars,...

En B19:

=ColorieImage(B9;SI(Maint.!D3>=Maint.!D4;65025;SI(Maint.!D3>Maint.!D4*95%;4626167;255)))

La formule est copiable.

Dans un module Alt+F11 puis Insertion/Module

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

JB

 

[tweety57]

Re : Modifier couleur d'une forme insérée dans une feuille excel, selon valeur de cel

Merci pour l'aide. La fonction VBA est ce qu'il me fallait.
J'ai tout de fois du mal à la manipuler.

La formule doit rester sur le 1er onglet, même si les infos sont dans le 2nd ? (si oui, pas grave je la cache en mettant la police et le remplissage en blanc).

Je ne vois pas à quel mois la formule fait référence (celui du 1er onglet ou celui du 2nd, la police d'écriture ne correspond ni à l'un ni à l'autre et dès que je change cela m'indique le terme "valeur")?

 

[pierrejean]

Re : Modifier couleur d'une forme insérée dans une feuille excel, selon valeur de cel

Bonjour à tous

Un essai
Nb: la couleur est validée a la sélection de la feuille Modele

 

[BOISGONTIER]

Re : Modifier couleur d'une forme insérée dans une feuille excel, selon valeur de cel

Pour écrire les formules sur un autre onglet, il faut modifier la fonction

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

La formule devient:

=ColorieImage(D2;SI(D3>=D4;65025;SI(D3>D4*95%;4626167;255)))


Cf Coloriage d'une image en fonction d'une valeur

JB

 

[tweety57]

Re : Modifier couleur d'une forme insérée dans une feuille excel, selon valeur de cel

Merci à tous pour vos informations.
J'ai pu intégrer l'indicateur au fichier global.
Je garde l'idée car du coup je pense l'appliquer à d'autres domaines.

Bonne journée.