Echelle parametrable graphique

Bonjour,

J'ai un autre sujet qui peut paraitre facile, mais je ne trouve aucun moyen de le faire facilement. J'ai un graphique XY avec des valeurs en X allant e 0 à 10 .

J'aimerai forcer l’échelle X entre 5 et 8 via des cellules sans avoir à le faire manuellement.

En d'autre terme j'aimerai remplacer les valeurs limites par des valeurs provenant de la feuille Excel.

Merci

Cordialement,

Marc

Bonjour,

Pour moi il faut passer par une macro. Voilà le code que je propose (exécuté automatiquement, donc à placer dans le module VBA de la feuille correspondante) :

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ErrMsg

If Target.Address = "$E$2" Or Target.Address = "$F$2" Then
    ChartObjects("Graphique 1").Activate
    ActiveChart.Axes(xlCategory).MinimumScale = Range("E2").Value
    ActiveChart.Axes(xlCategory).MaximumScale = Range("F2").Value
End If

Exit Sub
ErrMsg:
MsgBox "Erreur : vérifiez les valeurs saisies !"

End Sub

Dans votre fichier :

Merci bien pour cette réponse,

Je m'en doutais un peu.

Je voulais éviter le VBA mais ce n'est pas grave. Je vais l'implémenter sur les 20 graphiques.

Bonne journée

Marc