Colorier une forme selon la valeur d'une cellule - Excel 2007
shsh
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour à tous,
Comme le titre l'indique, je souhaiterais colorier une forme selon la valeur d'une cellule.
Concrètement, j'ai plusieurs formes représentant les différents pays d'Afrique et je souhaiterais associer à chacune de ces formes une cellule contenant une valeur de prix d'électricité et colorier cette forme en fonction du prix, du plus clair (valeurs peu chères) au plus foncé (valeurs chères).
Merci d'avance
Comme le titre l'indique, je souhaiterais colorier une forme selon la valeur d'une cellule.
Concrètement, j'ai plusieurs formes représentant les différents pays d'Afrique et je souhaiterais associer à chacune de ces formes une cellule contenant une valeur de prix d'électricité et colorier cette forme en fonction du prix, du plus clair (valeurs peu chères) au plus foncé (valeurs chères).
Merci d'avance
2 réponses
-
Bonjour.
La solution nécessite d'écrire une macro en VBA ; tu connais ?
-
Bonjour,
Tout d'abord il faut connaitre le nom des formes en cliquant dessus et en regardant dans la barre Formule à gauche.
Voici un exemple en vba, la valeur est contenu en A1 et la Forme (Shape) se nomme Ellipse 1, ceux ci sont a adapter.
Faire au clavier Alt F11 pour accéder à l'éditeur. Dans l'éditeur double cliquez sur la feuille où se trouve les formes (shapes) en haut à gauche et mettre ce code:
Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("A1")) Is Nothing Then Select Case Target.Value Case Is = 1 'a adapter la valeur ActiveSheet.Shapes("Ellipse 1").DrawingObject.Interior.Color = 5296274 'vert'a adapter nom forme et couleur Case Is = 2 ActiveSheet.Shapes("Ellipse 1").DrawingObject.Interior.Color = 49407 'orange Case Is = 3 ActiveSheet.Shapes("Ellipse 1").DrawingObject.Interior.Color = 255 'rouge End Select End If End Sub
