Bonjour.

Je m'en remets à vous car je suis confronté à un problème qui me parait insoluble...

Je travaille sur un graphique en échelle logarithmique et je cherche à connaître les extrmums de l'axe des ordonnées et des abscisses. Pour cela, j'ai envisagé le code suivant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub recup_echelle()
    Dim test As Single
    Dim graphe As Chart
    Set graphe = Sheets("Sheet1").ChartObjects("Graphique 10").Chart
test = graphe.Axes(xlValue).MaximumScale
    MsgBox "" & test
End Sub
Evidement il y a un bug (ligne magenta) sinon je ne serai pas la mais je ne sais pas comment le résoudre.

L'erreur renvoyée est la suivante:
"Erreur d'éxécution 1004. Impossible de lire la propriété MaximumScale de classe Axis."

Voilà merci pour votre aide