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
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
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
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...
Code:
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