Colorier une forme selon la valeur d'une cellule - Excel 2007
Fermé
shsh
-
Modifié par shsh le 24/11/2015 à 15:48
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 24 nov. 2015 à 16:29
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 24 nov. 2015 à 16:29
A voir également:
- Colorier une forme selon la valeur d'une cellule - Excel 2007
- Mise en forme conditionnelle excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Liste déroulante excel - Guide
- Verrouiller cellule excel - Guide
- Déplacer une colonne excel - Guide
2 réponses
Raymond PENTIER
Messages postés
58396
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
25 avril 2024
17 094
24 nov. 2015 à 15:51
24 nov. 2015 à 15:51
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 ?
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
24 nov. 2015 à 16:29
24 nov. 2015 à 16:29
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
Modifié par sarahsh le 24/11/2015 à 15:58