Re : Changer la couleur d'une forme en fonction du contenu d'une cellule
Pour l'instant j'ai cette macro là mais elle passe par un bouton et elle ne fonctionne pas :
Sub forme()
Dim shp As Shape
Dim wks As Worksheet
Set wks = ActiveWorkbook.Worksheets("Brief")
If Range("A1") <> "" Then
' Bordures des cadres
Set shp = wks.Shapes("Ellipse 94")
shp.Line.ForeColor.RGB = RGB(100, 100, 100)
' Intérieur des formes
Set shp = wks.Shapes("Ellipse 94")
shp.OLEFormat.Object.Interior.Color = RGB(123, 5, 100)
End If
End Sub
C'est une piste qui pourra peut-être aider.