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

[chaelie2015]

Bonjour Forum
Je souhaite change la couleur d'une forme selon la cellule.
Exemple :
j'ai une forme (triangle) si la cellule C1 non vide alors couleur du triangle vert sinon rouge.
Salutations

 

[sylvanu]

Bonjour Chaelie,
Un essai en PJ avec :

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

 

[job75]

Bonjour chaelie2015, sylvanu,

Ou plus simplement :

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

A+

 

[djidji59430]

Bonjour à tous,

ou bien sans vba

 

[mikachu]

Hello,

Voilà, à voir si ça convient

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

 

[job75]

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