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

**Daetheia** · 02/12/2011, 11h36

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** · 02/12/2011, 14h31

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** · 05/12/2011, 08h15

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

Non Var(0) ne marche pas

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