Discussion :

[jalseth]

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

[Le Pierre]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jalseth]

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

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