Colorier une forme selon la valeur d'une cellule - Excel 2007
shsh
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
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
A voir également:
- Colorier une forme selon la valeur d'une cellule - Excel 2007
- Mise en forme conditionnelle excel - Guide
- Déplacer une colonne excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Save as pdf office 2007 - Télécharger - Bureautique
- Bloquer une cellule excel - Guide
2 réponses
Bonjour.
La solution nécessite d'écrire une macro en VBA ; tu connais ?
La solution nécessite d'écrire une macro en VBA ; tu connais ?
sarahsh
oui ca me dit quelque chose mais je ne sais pas quoi écrire dans la macro xd
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:
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
