[XL-2003] Récupérer la dernière abscisse d'un graph sous vba [Résolu]

[Daetheia]

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

[ZebreLoup]

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

[Daetheia]

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

Non Var(0) ne marche pas