Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C1")) Is Nothing Then
With ActiveSheet.ChartObjects(1).Chart
.Axes(xlCategory).MaximumScale = Range("E1").Value
.Axes(xlValue).MaximumScale = Range("E2").Value
End With
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, [C1]) Is Nothing Then
MsgBox "Coucou"
End If
End Sub
Private Sub Worksheet_change(ByVal Target As Range)
If Not Application.Intersect(Target, [A7]) Is Nothing Then
.
.
.
End If
End sub