Autres (RESOLU)Changer la couleur d'une forme selon la cellule.

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 2 Février 2022

• #2

Bonjour Chaelie,
Un essai en PJ avec :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [C1]) Is Nothing Then
        With ActiveSheet.Shapes("Triangle isocèle 1")
            If Target = "" Then
                .Fill.ForeColor.RGB = vbRed
            Else
                .Fill.ForeColor.RGB = vbGreen
            End If
        End With
    End If
End Sub

 

Pièces jointes

• Triangle.xlsm

  14.6 KB · Affichages: 11

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Février 2022

• #3

Bonjour chaelie2015, sylvanu,

Ou plus simplement :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Shapes("Triangle isocèle 1").Fill.ForeColor.RGB = IIf(IsEmpty([C1]), vbRed, vbGreen)
End Sub

A+

 

Vote positif 0 Vote négatif

Solution

djidji59430

XLDnaute Barbatruc

• 2 Février 2022

• #4

Bonjour à tous,

ou bien sans vba

 

Pièces jointes

• Classeur1.xlsx

  9.5 KB · Affichages: 23

Vote positif 0 Vote négatif

mikachu

XLDnaute Occasionnel

• 2 Février 2022

• #5

Hello,

Voilà, à voir si ça convient

==EDIT== Oups, il y a du monde à répondre 🙄

 

Pièces jointes

• triangle vert rouge.xlsm

  14.8 KB · Affichages: 12

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Février 2022

• #6

djidj59430 a proposé une solution sans macro, en voici une autre.

 

Pièces jointes

• Classeur(1).xlsx

  16.1 KB · Affichages: 16

Vote positif 0 Vote négatif