Modifier la couleur d'un objet en fonction du résultat d'un calcul

[stock14]

Bonjour à tous,

J'essaye, en vain d'adapter les différentes solutions que j'ai trouvé sur le forum.
N'y arrivant pas je vous soumet mon fichier qui est pourtant simple.

J'ai dans ma feuille 1, le résultat d'un caclul d'évolution entre deux valeurs.
Je restitue ce résultat dans ma feuille 2, avec la valeur de l'année en cours dans une zone de texte, la valeur de l'évolution dans une seconde zone de texte, et je voudrais que le 3ème objet (l'ellipse) prenne une couleur en fonction du résultat du calcul :
- si progression supérieure à 2%, alors couleur verte
- si progression inférieure à -2%, alors couleur rouge
- si progression comprise entre -2 et 2%, almors couleur orange.

Est-ce que vous pouvez m'aider en me donnant le code à mettre dans la feuille ?

Egalement,
Le code est-il adaptable pour la couleur du texte ?

Un grand merci d'avance.

 

[Papou-net]

Re : Modifier la couleur d'un objet en fonction du résultat d'un calcul

Bonsoir stock14,

Regarde si la copie en PJ te convient (maccro événementielle sur Feuil1).

Cordialement.

 

[stock14]

Re : Modifier la couleur d'un objet en fonction du résultat d'un calcul

Merci+++
c'est parfait

 

[BOISGONTIER]

Re : Modifier la couleur d'un objet en fonction du résultat d'un calcul

Bonjour,

Avec une fonction

=colorieimage("indic";SI(Feuil1!C2<-2%;couleur(rouge);SI(Feuil1!C2>2%;couleur(vert);couleur(orange))))

Permet de gérer plusieurs indicateurs sans connaître VBA

http://boisgontierjacques.free.fr/fichiers/Images/Indic.xls
http://boisgontierjacques.free.fr/fichiers/Images/Indic1.xls

JB

 

[stock14]

Re : Modifier la couleur d'un objet en fonction du résultat d'un calcul

Bonjour et merci Boisgontier.
Ta formule est bien, et en plus, j'arrive à l'adapter .

Par contre quand je veux l'utiliser à l'identique dans mon fichier excel de base, il me renvoi #NOM?.
Comment faire pour que la formule fonctionne également ? N'est-ce pas un pb de version de fichier excel ?

 

[BOISGONTIER]

Re : Modifier la couleur d'un objet en fonction du résultat d'un calcul

Il faut mettre ce code dans un module

-Alt+F11
-Insertion/Module

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

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

Les images et shapes

JB

 

[stock14]

Re : Modifier la couleur d'un objet en fonction du résultat d'un calcul

Merci
Effectivement celà fonctionne qunad l'bjet est sur la même page.
Si je le coupe et le colle sur une autre feuille, il me renvoi #VALEUR dans la cellule de la formule ?

 

[BOISGONTIER]

Re : Modifier la couleur d'un objet en fonction du résultat d'un calcul

Si la formule n'est pas écrite dans la page de l'image

=colorieimage("feuil2";"indic";SI(Feuil1!C2<-2%;couleur(rouge);SI(Feuil1!C2>2%;couleur(vert);couleur(orange))))

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

http://boisgontierjacques.free.fr/fichiers/Images/ColorieImage.xls

JB

 

[stock14]

Re : Modifier la couleur d'un objet en fonction du résultat d'un calcul

Merci pour ces précisions.
C'est très clair.

Merci de ta patience.
Bonne journée.