Colorier une forme selon la valeur d'une cellule - Excel 2007 Fermé

Question

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

Raymond PENTIER · Answer

Bonjour.

La solution nécessite d'écrire une macro en VBA ; tu connais ?

cs_Le Pivert · Answer

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

Colorier une forme selon la valeur d'une cellule - Excel 2007

2 réponses

Discussions similaires