XL 2010 Appliquer une couleur de remplissage à une forme en fonction de la valeur d'une cellule

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion MARIO43
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

MARIO43

XLDnaute Nouveau
Bonjour
je voudrais savoir s'il est possible, via une macro VBA, d'appliquer une couleur de remplissage à une forme insérée dans un tableau et ceci en fonction de la valeur d'une cellule. Par exemple dans le fichier joint je voudrais remplir les 3 formes du "feu de circulation" . Pour la forme du haut avec la couleur rouge si D6=1, pour la forme du milieu avec la couleur orange si D7=2 et pour la forme du bas couleur verte si D8=3
Merci d'avance
 

Pièces jointes

Solution
job75
Bonjour MARIO43, le forum,

La macro doit toujours être dans le code de la feuille des cellules D6 D7 D8 modifiées et il suffit de préciser la feuille où se trouvent les images :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Feuil1.Shapes("Ellipse 2").Visible = [D6] <> 1
Feuil1.Shapes("Ellipse 12").Visible = [D7] <> 2
Feuil1.Shapes("Ellipse 13").Visible = [D8] <> 3
End Sub
Feuil1 est le CodeName, fichier (2).

Bonne journée.
Trier par date Trier par votes
Bonjour,
Non c'est magique. 🙂

En feuil1 j'utilise un Worksheet_Change. Cette macro se lance quand une des cellules D6,D7,D8 change de valeur.
VB: 
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$D$6" Or Target.Address = "$D$7" Or Target.Address = "$D$8" Then
    If Range("$D$6") = 1 Then
        Shapes("Rouge").Fill.ForeColor.RGB = RGB(255, 0, 0)
    Else
        Shapes("Rouge").Fill.ForeColor.RGB = RGB(255, 255, 255)
    End If
    If Range("$D$7") = 2 Then
        Shapes("Orange").Fill.ForeColor.RGB = RGB(255, 255, 0)
    Else
        Shapes("Orange").Fill.ForeColor.RGB = RGB(255, 255, 255)
    End If
    If Range("$D$8") = 3 Then
        Shapes("Vert").Fill.ForeColor.RGB = RGB(0, 255, 0)
    Else
        Shapes("Vert").Fill.ForeColor.RGB = RGB(255, 255, 255)
    End If
    End If
    ' variante
    If Target.Address = "$D$26" Then
        Shapes("Rouge2").Fill.ForeColor.RGB = RGB(255, 255, 255)
        Shapes("Orange2").Fill.ForeColor.RGB = RGB(255, 255, 255)
        Shapes("Vert2").Fill.ForeColor.RGB = RGB(255, 255, 255)
        If Target.Value = 1 Then
            Shapes("Rouge2").Fill.ForeColor.RGB = RGB(255, 0, 0)
        ElseIf Target.Value = 2 Then
            Shapes("Orange2").Fill.ForeColor.RGB = RGB(255, 255, 0)
        ElseIf Target.Value = 3 Then
            Shapes("Vert2").Fill.ForeColor.RGB = RGB(0, 255, 0)
        End If
    End If
End Sub
 
Vote positif 0 Vote négatif
sylvanu à dit:
Bonjour,
Non c'est magique. 🙂

En feuil1 j'utilise un Worksheet_Change. Cette macro se lance quand une des cellules D6,D7,D8 change de valeur.
VB: 
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$D$6" Or Target.Address = "$D$7" Or Target.Address = "$D$8" Then
    If Range("$D$6") = 1 Then
        Shapes("Rouge").Fill.ForeColor.RGB = RGB(255, 0, 0)
    Else
        Shapes("Rouge").Fill.ForeColor.RGB = RGB(255, 255, 255)
    End If
    If Range("$D$7") = 2 Then
        Shapes("Orange").Fill.ForeColor.RGB = RGB(255, 255, 0)
    Else
        Shapes("Orange").Fill.ForeColor.RGB = RGB(255, 255, 255)
    End If
    If Range("$D$8") = 3 Then
        Shapes("Vert").Fill.ForeColor.RGB = RGB(0, 255, 0)
    Else
        Shapes("Vert").Fill.ForeColor.RGB = RGB(255, 255, 255)
    End If
    End If
    ' variante
    If Target.Address = "$D$26" Then
        Shapes("Rouge2").Fill.ForeColor.RGB = RGB(255, 255, 255)
        Shapes("Orange2").Fill.ForeColor.RGB = RGB(255, 255, 255)
        Shapes("Vert2").Fill.ForeColor.RGB = RGB(255, 255, 255)
        If Target.Value = 1 Then
            Shapes("Rouge2").Fill.ForeColor.RGB = RGB(255, 0, 0)
        ElseIf Target.Value = 2 Then
            Shapes("Orange2").Fill.ForeColor.RGB = RGB(255, 255, 0)
        ElseIf Target.Value = 3 Then
            Shapes("Vert2").Fill.ForeColor.RGB = RGB(0, 255, 0)
        End If
    End If
End Sub
Cliquez pour agrandir...
Merci mais la macro ne fonctionne pas. J'ai le message "erreur de compilation : End sub attendu"
 
Vote positif 0 Vote négatif
Avec le fichier du post #2 ? chez moi ça marche sous XL2007.
20200618_161108.gif
 
Vote positif 0 Vote négatif
Bonjour MARIO43, sylvanu,

Pourquoi colorer les formes ? Il suffit de les afficher ou masquer, c'est beaucoup plus simple.

Voyez le fichier joint et cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Shapes("Ellipse 2").Visible = [D6] <> 1
Shapes("Ellipse 12").Visible = [D7] <> 2
Shapes("Ellipse 13").Visible = [D8] <> 3
End Sub
Les 3 formes s'affichent ou se masquent automatiquement quand on modifie D6 D7 D8.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
djidji59430 à dit:
Bonjour à tous,

Un essai, avec l'appareil photo
Cliquez pour agrandir...
job75 à dit:
Bonjour MARIO43, sylvanu,

Pourquoi colorer les formes ? Il suffit de les afficher ou masquer, c'est beaucoup plus simple.

Voyez le fichier joint et cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Shapes("Ellipse 2").Visible = [D6] <> 1
Shapes("Ellipse 12").Visible = [D7] <> 2
Shapes("Ellipse 13").Visible = [D8] <> 3
End Sub
Les 3 formes s'affichent ou se masquent automatiquement quand on modifie D6 D7 D8.

A+
Cliquez pour agrandir...
Un trés grand merci
 
Vote positif 0 Vote négatif
job75 à dit:
Bonjour MARIO43, sylvanu,

Pourquoi colorer les formes ? Il suffit de les afficher ou masquer, c'est beaucoup plus simple.

Voyez le fichier joint et cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Shapes("Ellipse 2").Visible = [D6] <> 1
Shapes("Ellipse 12").Visible = [D7] <> 2
Shapes("Ellipse 13").Visible = [D8] <> 3
End Sub
Les 3 formes s'affichent ou se masquent automatiquement quand on modifie D6 D7 D8.

A+
Cliquez pour agrandir...
Super. Merci à toi
 
Vote positif 0 Vote négatif
Bonjour MARIO43, le forum,

La macro doit toujours être dans le code de la feuille des cellules D6 D7 D8 modifiées et il suffit de préciser la feuille où se trouvent les images :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Feuil1.Shapes("Ellipse 2").Visible = [D6] <> 1
Feuil1.Shapes("Ellipse 12").Visible = [D7] <> 2
Feuil1.Shapes("Ellipse 13").Visible = [D8] <> 3
End Sub
Feuil1 est le CodeName, fichier (2).

Bonne journée.
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Question Question
Microsoft 365 mise en forme conditionnelle : choisir la couleur d'une autre cellule
Réponses
11
Affichages
501
deuxnid
D
F
  • Question Question
XL 2016 Mise en forme conditionnelle d'une forme (cartographie)
Réponses
9
Affichages
295
francois95
F
C
  • Question Question
Microsoft 365 je cherche un code excel pour copier la couleur d'une cellule, à toutes les cellules qui ont la même valeur dans mon tableau.
Réponses
1
Affichages
151
sylvanu
sylvanu
E
  • Question Question
Microsoft 365 Mise en forme conditionnelle d'une ligne avec critère.
Réponses
9
Affichages
363
TooFatBoy
TooFatBoy
B
  • Résolu(e)
XL 2021 compter les cellules de la même couleur
2 3
Réponses
36
Affichages
663
mapomme
mapomme
P
  • Résolu(e)
XL pour MAC Problème de changement de couleur de la valeur d'une cellule
Réponses
2
Affichages
287
pvander
P
Y
  • Question Question
Microsoft 365 Mise en forme conditionnelle en fonction d'une liste déroulante
2
Réponses
16
Affichages
304
YGU1
Y
Yann71
  • Question Question
Microsoft 365 Compter le nombre de cellule mise en couleur avec MFC
2
Réponses
19
Affichages
783
job75
job75
treza88
  • Question Question
Microsoft 365 Copie de couleur d'une cellule à une autre
Réponses
11
Affichages
612
Dranreb
Dranreb
G
  • Question Question
XL 2016 SI (cellule de couleur) alors
Réponses
4
Affichages
728
Nicolas JACQUIN
Nicolas JACQUIN
halecs93
  • Résolu(e)
XL 2016 Appliquer sur une sélection la couleur d'une autre cellule
Réponses
4
Affichages
428
halecs93
halecs93
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
612
fanfan38
fanfan38
L
  • Résolu(e)
Microsoft 365 VBA - Attribuer mise en forme en fonction de valeur cellule d'une liste
Réponses
14
Affichages
708
Laliepomm
L
A
  • Résolu(e)
XL 2013 mise en forme conditionnelle celons 2 critères
Réponses
7
Affichages
125
Auriane
A
treza88
  • Question Question
Microsoft 365 Fonction perso ref couleur Hexa en couleur de fond de cellule
2
Réponses
24
Affichages
930
Dudu2
Dudu2
C
  • Résolu(e)
XL 2021 Peut-on appliquer la mise en forme d'une MFC à plusieurs cellules ?
Réponses
2
Affichages
394
Constantin
C
P
  • Résolu(e)
Microsoft 365 Mise en surbrillance de prix min et max (mise en forme conditionnelle)
Réponses
6
Affichages
67
Pepepichnette69
P
I
  • Résolu(e)
Microsoft 365 Exécuter une macro en fonction de la valeur d'une cellule
Réponses
12
Affichages
395
iliess
I
F
  • Résolu(e)
Microsoft 365 Mise en forme conditionnelle selon la référence d'une cellule
Réponses
3
Affichages
612
filiph79
F
Y
  • Résolu(e)
XL 2013 Colorier une cellule en fonction d'une valeur
Réponses
3
Affichages
579
Yvan1
Y
Retour