Lire Minimum/maximum d'un axe d'un graphique

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:

---

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

bonjour

j'ai testé et ça fonctionne à condition :
- que ta feuille s'appelle bien "Sheet1" et non "Feuil1"
- que ton graphique s'appelle bien "Graphique 10"
Voici le code testé pour "Graphique 1"

Code:

---

1 2 3 4 5 6 7

Sub test1() Dim test As Single Dim graphe As Chart Set graphe = ActiveSheet.ChartObjects("Graphique 1").Chart test = graphe.Axes(xlValue).MaximumScale MsgBox "" & test End Sub

---

à plus

Quelle rapidité pour ta réponse... Et qui plus est avec efficacité :king:

en effet, il doit y avir un souci dans mon nom de graphique (le nom de feuille je me suis pas planté).... En effet, quand j'ai changé "Graphique 10" par l'index 1 cela fonctionne à merveille

Merci pour ton aide précieuse!

A moi les changement d'échelle à gogo :yaisse2: