Récupérer la dernière abscisse d'un graph sous vba

Bonjour à tous,
J'aimerai récupérer la dernière abscisse d'un graph.
Je récupère déjà la première avec ce code

Code:

---

1 2	Var = ActiveChart.SeriesCollection(1).XValues Debut = Var(1)

---

mais je ne vois pas comment récupérer la dernière. J'ai essayé avec Var(xlEnd), mais ce la me retourne la 2ème abscisse.

Merci d'avance

Pour les premières et dernières valeurs :

Code:

---

1 2 3

Var = ActiveChart.SeriesCollection(1).XValues Debut = Var(1) 'Var(0) ne marche pas ? Fin = Var(Ubound(Var))

---

Si tu veux savoir l'échelle :

Code:

---

1 2	minScale = ActiveChart.Axes(2).MinimumScale maxScale = ActiveChart.Axes(2).MaximumScale '1 pour x, 2 pour y

---

Merci beaucoup ZebreLoup c'est juste ce qu'il me fallait !

Non Var(0) ne marche pas