Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Modifier la couleur de fonds d'un objet selon la valeur d'une cellule

troopers87

XLDnaute Occasionnel
Bonjour à tous,

je souhaiterais modifier la couleur de fonds d'un objet (une forme libre que j'ai nommé Secteur_1) selon la valeur d'une cellule qui est associée (que j'ai nommée Valeur_secteur_1).

Mon objectif est que, si la valeur de la cellule Valeur_secteur_1 change (par exemple, >20%) alors le fond bleu de la forme Secteur_1 passe du bleu au rouge, et inversement, évidemment.

J'ai bidouillé un petit bout de code mais... je suis loin de le gérer correctement.

Je joins un fichier exemple qui pourra peut-être guider une éventuelle aide, l'évènement est dans l'évènement Change, merci d'avance !
 

Pièces jointes

  • troopers_V1.xlsm
    12.4 KB · Affichages: 199
Trier par date Trier par votes

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Re : Modifier la couleur de fonds d'un objet selon la valeur d'une cellule

Pour obtenir une description d'une fonction perso dans Insertio/fonction

Code: 
Private Sub auto_Open()
  Application.MacroOptions Macro:="ColorieImage", Description:="Colorie un objet avec la couleur spécifiée", Category:=14
  Application.MacroOptions Macro:="Couleur", Description:="Donne la couleur de la cellule spécifiée", Category:=14
End Sub

Function ColorieImage(s, Couleur)
  Application.Volatile
  Set f = Sheets(Application.Caller.Parent.Name)
  f.Shapes(s).Fill.ForeColor.RGB = Couleur
End Function

Function Couleur(c As Range)
  Application.Volatile
  Couleur = c.Interior.Color
End Function

JB
 

Pièces jointes

  • Copie de troopers_V1.xls
    66 KB · Affichages: 132
  • Copie de troopers_V1.xls
    66 KB · Affichages: 83
  • Copie de troopers_V1.xls
    66 KB · Affichages: 103
Vote positif 0 Vote négatif

troopers87

XLDnaute Occasionnel
Re : Modifier la couleur de fonds d'un objet selon la valeur d'une cellule

Bonjour à tous,

je reviens vers vous car j'ai un nouveau souci qui se rapproche énormément de ce post. Je ne pense pas qu'il soit nécesssaire d'en créer un autre.

Je voudrais modifier la couleur des flèches de certains axes selon la valeur qui leur est attribuée.

Deux idées nouvelles :
- je voudrais que les couleurs se mettent à jour automatiquement (dès que les données changent), je pense qu'il y a un lien avec le Enable event, mais je ne suis pas sûr ;
- je voudrais insérer des conditions doubles dans le Case (valeur >7% et <9% par exemple).

Je vous joins un fichier exemple, merci d'avance pour toute votre aide !

PS : je voudrais garder le nom des cellules si possible, car si je supprime ou ajoute une colonne, tout le code se retrouve par terre !
 

Pièces jointes

  • Exemple v1.xls
    57.5 KB · Affichages: 123
  • Exemple v1.xls
    57.5 KB · Affichages: 90
  • Exemple v1.xls
    57.5 KB · Affichages: 88
Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc
Re : Modifier la couleur de fonds d'un objet selon la valeur d'une cellule

Bonjour,

il ne manquait pas grand chose !
dans Private Sub Worksheet_Change(ByVal Target As Range), remplacer tous les

Shapes.Range(Array("Axe_site1")).Fill.ForeColor.RGB = RGB(xxx, xxx, xxx)

par
Shapes.Range(Array("Axe_site1")).Line.ForeColor.RGB = RGB(xxx, xxx, xxx)

idem pour "Axe_site2"

A+
 
Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Re : Modifier la couleur de fonds d'un objet selon la valeur d'une cellule

Bonjour,

Avec des fonctions perso

Code: 
=colorieimage("Axe_site1";SI(Taux_site1>=Min_Rouge; couleur(Min_Rouge);SI(Taux_site1>=Min_Orange;couleur(Min_Orange);SI(Taux_site1>Min_vert;couleur(Min_vert);0))))

La maj est automatique

Code: 
Function ColorieImage(s, couleur)
  Application.Volatile
  Set f = Sheets(Application.Caller.Parent.Name)
  f.Shapes(s).Line.ForeColor.RGB = couleur
End Function

JB
 

Pièces jointes

  • Copie de Exemple v1-1.xls
    58 KB · Affichages: 89
Dernière édition:
Vote positif 0 Vote négatif

troopers87

XLDnaute Occasionnel
Re : Modifier la couleur de fonds d'un objet selon la valeur d'une cellule

Ah Paf, merci pour ton aide ! Je venais de découvrir tout seul la solution !
Deplus, en ce qui concerne la mise à jour automatique, il suffisait de sélectionner l'évènement "Activate" (= sélection de la feuille) plutôt que "Change".

Merci à toi aussi pour ta participation, BoisGontier !
 
Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc
Re : Modifier la couleur de fonds d'un objet selon la valeur d'une cellule

Re,

Activate mettra à jour à l'activation de la feuille, mais pas dès le changement de valeur (comme souhaité ? post #20)

Bonne suite
 
Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc
Re : Modifier la couleur de fonds d'un objet selon la valeur d'une cellule

re

après tests plus sérieux, l'enchainement des > et < dans chaque case posait soucis :
quelle que soit la valeur de Taux_site2 (pareil pour Taux_site1) le test déterminait que l'on était supérieur à Min_vert et donc affichait la couleur verte.

donc modifications suivantes:
-suppression de la double condition
-inversion de l'ordre des Case ( du plus grand au plus petit)
-modification du test > en >= ( à adapter en fonction de la limite de plage)
Code: 
If Target = Range("Taux_site2") Then
With Shapes.Range(Array("Axe_site2"))
Cas_Taux_Site2 = Range("Taux_Site2").Value
    Select Case Cas_Taux_Site2
        Case Is >= Range("Min_rouge")
            .Line.ForeColor.RGB = RGB(255, 102, 0)
        Case Is >= Range("Min_orange")
            .Line.ForeColor.RGB = RGB(255, 153, 0)
        Case Is >= Range("Min_vert")
            .Line.ForeColor.RGB = RGB(0, 255, 0)
    End Select
End With
End If

pareil pour site1.

Finalement la solution de BOISGONTIER est bien plus simple

Bonne suite
 
Dernière édition:
Vote positif 0 Vote négatif
M

MistereVBA

XLDnaute Nouveau
Bonjour,

Je suis débutante en VBA (novice même) et malgré mes nombreuses tentatives grâce à l'aide de cette discussion, je ne parviens toujours pas à réaliser ce que je souhaite. Pouvez-vous m’aider ?

Mise en situation :
Nous sommes dans une entreprise et il y eu des accidents du travail.
Je souhaite que mon bonhomme change de couleurs lorsque les pourcentages du tableau varient.


Exemple :
Le pourcentage pour les « Doigts et mains » est de 25%, les formes « Main_G » et « Main_D » devraient être en rouge.

J’attends avec impatience une aide de votre part.

MERCI d’avance !

PS : ce fichier sera réalisé sur Excel2016 par la suite.
 

Pièces jointes

  • exercice forum.xlsx
    22.5 KB · Affichages: 24
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, le forum

@MistereVBA [Bienvenue sur le forum]
L'usage c'est de créer sa propre discussion pour poser sa question plutôt que de déterrer un fil tout plein de poussière
(Cela évite de répendre des allergènes dans les cellules de nos tableurs)
Cela permets également ne pas se mélanger les pinceaux et de garder la lecture du fil fluide.
 
Vote positif 0 Vote négatif
M

MistereVBA

XLDnaute Nouveau

Très bien, je redirige ce topic ! Merci
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

T
  • Question
XL 2021 Additionner la couleur du fond et la police de plusieurs cellule en vba
Réponses
7
Affichages
312
Tophe2
T
P
  • Résolu(e)
XL pour MAC Problème de changement de couleur de la valeur d'une cellule
Réponses
2
Affichages
243
pvander
P
J
  • Question
XL 2010 définir un nom de cellule en fonction de la valeur d'une autre
Réponses
10
Affichages
559
jojo4738
J
G
  • Question
XL 2016 SI (cellule de couleur) alors
Réponses
4
Affichages
609
Nicolas JACQUIN
I
  • Résolu(e)
Microsoft 365 Exécuter une macro en fonction de la valeur d'une cellule
Réponses
12
Affichages
321
iliess
I
N
  • Question
XL 2013 Fixer la valeur d'une cellule saisie en fonction d'un nombre de décimal défini
Réponses
6
Affichages
254
mapomme
F
  • Résolu(e)
Microsoft 365 Mise en forme conditionnelle selon la référence d'une cellule
Réponses
3
Affichages
554
filiph79
F
R
  • Résolu(e)
Microsoft 365 calculer une moyenne conditionnelle en retirant certaines valeurs par le biais de la couleur de fond d'une cellule
Réponses
7
Affichages
579
ricoben
R
L
  • Résolu(e)
Microsoft 365 VBA - Attribuer mise en forme en fonction de valeur cellule d'une liste
Réponses
14
Affichages
658
Laliepomm
L
P
  • Résolu(e)
XL 2019 Couleur recopiée automatiquement sur la couleur d'une autre cellule.
Réponses
5
Affichages
825
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…