Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C4")) Is Nothing Then
Application.ScreenUpdating = False
ActiveSheet.Shapes.Range(Array("Report")).Select 'Sélection Shape "Report"
Selection.Formula = "=Feuil1!C4" 'Màj. Shape "Report", Fct Cell("Jauges!C4")
Valeur = Sheets("Feuil1").Range("C4")
With Sheets("Feuil1").Shapes("Report") 'Sélection Feuille "Feuil1", Shape "Report"
.TextFrame.Characters.Font.Size = 10 ' Taille de la Police: 10
.TextFrame.Characters.Font.Name = "Book Antiqua" 'Police imposée
.TextFrame.Characters.Font.Bold = True 'Mise en forme: Gras
If Valeur > 0 Then
.TextFrame.Characters.Font.Color = RGB(0, 255, 0) 'Couleur de police de la Shape: Blanc
Else
.TextFrame.Characters.Font.Color = RGB(255, 0, 0) 'Couleur de police de la Shape: Blanc
End If
End With
End If
Fin:
[A1].Select
Application.ScreenUpdating = True
End Sub