Echelle d'un graphique : code vba

[DG33]

Bonjour,
J'ai un graphique sur un feuille appelée "gf Date", pour lequel je souhaite que les valeurs mini et maxi de l'échelle des ordonnées soient reliées à des cellule situées sur une autre feuille ("Synthèse").
J'ai essayé de mettre cela directement dans le Code de la feuille "gf Date" :

Sub Echelle2()
With ActiveSheet.Chart.Axes(xlCategroty)
.MinimumScale = Sheets("Synthèse").Range("g96").Value
.MaximumScale = Sheets("Synthèse").Range("g97").Value
End With
End Sub

Mais cela ne marche pas.
Pouvez-vous m'indiquer les corrections à apporter.
Cordialement

 

[Pierrot93]

Re : Echelle d'un graphique : code vba

Bonjour,

essaye peut être ceci :

Sub Echelle2()
With ActiveSheet.ChartObjects(1).Chart.Axes(xlCategroty)
.MinimumScale = Sheets("Synthèse").Range("g96").Value
.MaximumScale = Sheets("Synthèse").Range("g97").Value
End With
End Sub

bonne journée
@+

 

[DG33]

Re : Echelle d'un graphique : code vba

Merci, pour ta réponse.
j'ai essayé ta proposition mais cela ne marche pas.
j'ai essayé ceci, mais sans succès non plus ("erreur 400") :

Code :
Sub EchelleY()
ActiveSheet.ChartObjects(1).Activate
With ActivateChart.Axes(x1Category)
.MinimumScale = Sheets("Synthèse").Range("g96").Value
.MaximumScale = Sheets("Synthèse").Range("g97").Value
End With
End Sub

 

[Pierrot93]

Re : Echelle d'un graphique : code vba

Re,

bah... a voir le contenu des cellules en question... sans doute qu'un petit fichier nous aiderait à yvoir plus clair...

 

[DG33]

Re : Echelle d'un graphique : code vba

Le fichier est là.
Cdt

 

[Pierrot93]

Re : Echelle d'un graphique : code vba

Re,

c'est une feuille graphique non une feuille de calcul... modifie le code comme suit, à placer dans un module standard, non dans le module de la feuille graph...

Option Explicit
Sub Echelle2()
With Charts("gf Date Fin").Axes(xlValue)
    .MinimumScale = Sheets("Synthèse").Range("g8").Value
    .MaximumScale = Sheets("Synthèse").Range("g9").Value
End With
End Sub

bon après midi
@+

 

[DG33]

Re : Echelle d'un graphique : code vba

C'est parfait.
merci beaucoup.
bonne journée.
Cdt