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

chaelie2015

XLDnaute Accro
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
 
Dernière édition:

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof