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
Evidement il y a un bug (ligne magenta) sinon je ne serai pas la mais je ne sais pas comment le résoudre.
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
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
Partager