Salut,
Je bataille ferme mais sans jamais y arriver....
Je souhaite forcer l'échelle de mes graphes quels que soient leur nom :
J'ai écrit:
Sub graph()
Dim c As ChartObjects
For Each c In ActiveSheet
With c.ChartArea.Axes(xlValue)
.MinimumScale = 20
.MaximumScale = 150
End With
Next
End Sub
mais cela ne marche évidemment pas.
Je sais le faire avec un graphique nommé 1,2, 1000..... mais pas avec des noms volatiles
Comment m'en sortir??
Merci,
Je bataille ferme mais sans jamais y arriver....
Je souhaite forcer l'échelle de mes graphes quels que soient leur nom :
J'ai écrit:
Sub graph()
Dim c As ChartObjects
For Each c In ActiveSheet
With c.ChartArea.Axes(xlValue)
.MinimumScale = 20
.MaximumScale = 150
End With
Next
End Sub
mais cela ne marche évidemment pas.
Je sais le faire avec un graphique nommé 1,2, 1000..... mais pas avec des noms volatiles
Comment m'en sortir??
Merci,