Couleur d'une forme en fonction de la valeur d'une cellule

Joël GARBE

XLDnaute Nouveau

• 18 Janvier 2017

• #2

Bonjour,

Je mettrais plutôt le code dans l'événement "Change" plutôt que SelectionChange, avec ce code à insérer dans le module privé de la feuille concernée en modifiant au besoin les paramètre RGB... :

Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet.Shapes(1)
.Select
Select Case Range("A1")
Case Is < 100
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 255, 0)
Case Else
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0)
End Select
End With
Target.Select
End Sub

 

Vote positif 0 Vote négatif

P

petipouf

XLDnaute Nouveau

• 18 Janvier 2017

• #3

Bonjour Joël
Tout d'abord merci beaucoup du temps que tu m'accordes!

Je dois me servir de la formule, pourrais-tu m'éclairer ?
Voici comment je procède:
j'ouvre Excel, je crée l'ellipse,
ensuite je clique dessus et met: affecter une macro.
Par défaut apparaît: nom de la macro: ellipse1_Cliquer
Je la modifie.
Dans le code VBA il y a pour le moment:

Sub Ellipse1_Cliquer()
End Sub

Je supprime ces éléments et y ajoute ton code.
Malheureusement rien ne se passe...

Encore merci de ton aide!

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 18 Janvier 2017

• #4

Bonjour,
Ceci devrait être suffisant

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes(1).Fill.ForeColor.SchemeColor = IIf(Range("a1").Value < 100, 10, 11)
End Sub

Pour le mettre en place
-Copier le code ci-dessus
-Sélectionner la feuille ou se trouve la forme
-Alt+F11
-Coller le code dans la grande fenêtre (blanche)🙂
-Retourner sur la feuille et tester en changeant la valeur de A1
Exemple en pj

 

Pièces jointes

• petipouf.xlsm

  14.4 KB · Affichages: 37

Dernière édition: 18 Janvier 2017

Vote positif 0 Vote négatif

P

petipouf

XLDnaute Nouveau

• 18 Janvier 2017

• #5

Joël.
J'ai réussi, le code marche nickel.
Merci beaucoup !!!!!!!!!!!!!

 

Vote positif 0 Vote négatif

P

petipouf

XLDnaute Nouveau

• 18 Janvier 2017

• #6

Merci à toi aussi Jacky!

o o
\___/

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 18 Janvier 2017

• #7

Bonjour à tous,

une solution sans macro en pièce jointe

à+
Philippe

 

Pièces jointes

• 111.xlsx

  8.3 KB · Affichages: 48

Vote positif 0 Vote négatif