Bonjour à tous !
Je pense que vous n'aurez pas de soucis à résoudre mon problème, même si je n'ai rien trouvé sur le net pouvant m'aider.
J'ai créé un Sub qui définit le minimum et le maximum de l'abscisse d'un graphique en fonction de ces deux variables. Elles sont situées en "A1" et "B1". L'idée est que lorsque je change une de ces valeurs, le sub s'exécute automatiquement.
J'ai écrit ceci :
J'avais espéré que le "Application.Volatile" aurait fonctionné, mais ce n'est pas le cas. Que dois-je faire pour que ce sub soit exécuté automatiquement (en changeant une cellule ou en appuyant F9) ?
Merci d'avance.
Trudy.
Je pense que vous n'aurez pas de soucis à résoudre mon problème, même si je n'ai rien trouvé sur le net pouvant m'aider.
J'ai créé un Sub qui définit le minimum et le maximum de l'abscisse d'un graphique en fonction de ces deux variables. Elles sont situées en "A1" et "B1". L'idée est que lorsque je change une de ces valeurs, le sub s'exécute automatiquement.
J'ai écrit ceci :
Code:
Sub MySub()
Application.Volatile
Dim MyMin As Double
Dim MyMax As Double
MyMin = Worksheets("Sheet1").Cells(1, 1)
MyMax = Worksheets("Sheet1").Cells(1, 2)
ActiveSheet.ChartObjects("Chart 3").Activate
ActiveChart.Axes(xlCategory, xlSecondary).Select
With ActiveChart.Axes(xlCategory, xlSecondary)
.MinimumScale = MyMin
.MaximumScale = MyMax
End With
End Sub
J'avais espéré que le "Application.Volatile" aurait fonctionné, mais ce n'est pas le cas. Que dois-je faire pour que ce sub soit exécuté automatiquement (en changeant une cellule ou en appuyant F9) ?
Merci d'avance.
Trudy.