Lire la valeur automatique du max de l'echelle d'un graphique

[bashauban2]

Bonjour,
C'est dans le titre dans un graphique standard ou la pleine échelle des absices est générée en auto, je souhaite lire cette valeur pour l'imposer par du code à d'autres graphiques dans le même document (ça je sais faire)...
(je suis en excel 2003)
Merci de vos lumières...

 

[Catrice]

Re : Lire la valeur automatique du max de l'echelle d'un graphique

Bonjour,

Comme ceci :

MsgBox ActiveChart.Axes(xlValue).MaximumScale
'ou
MsgBox ActiveChart.Axes(xlCategory).MaximumScale

 

[bashauban2]

Re : Lire la valeur automatique du max de l'echelle d'un graphique

Merci Catrice warf warf même pas fait exprès

En Fait j'ai trouvé moi même un peu au pif, mais cela marche, je ressort la valeur du max ou autre de l'échelle auto et je la parachute ailleurs...

Bonne soirée

ActiveSheet.ChartObjects("Chart 29").Activate
With ActiveChart.Axes(xlCategory)
QMAX = .MaximumScale
End With
Range("A1")= QMAX