Récupérer dernière valeur en abscisse d'un graphique

[Holeshotman]

Bonjour à l'ensemble des membres du forum,

Je me permet de faire appel à vous car je bute sur un problème ...

Je souhaiterais, dans le but de tracer de manière automatique des barres d'erreur sur un graphique, récupérer la dernière valeur en abscisse d'un graphique.
Après avoir effectué quelques recherches, j'ai trouvé ce code qui associe à une variable la valeur en ordonnée du 2ième points, présent dans la 1ère série d'un graphique nommé "Graphique 1" :

Sub pointsGraph()
Dim Valeur As Single
With Sheets('Feuil1').ChartObjects('Graphique 1').Chart.SeriesCollection(1).Points(2)
.HasDataLabel = True 'affiche la valeur du point dans le graphique
Valeur = .DataLabel.Characters.Text 'recupere la valeur du point dans une variable
.HasDataLabel = False 'ne plus afficher la valeur du point
End With
MsgBox Valeur
End Sub

Je souhaiterais faire exactement la même chose mais pour les abscisses et pour le dernier point ...

Si quelqu'un a déjà eu affaire à ce type de problématique, je suis intéressé par ses solutions ! 😀
Merci par avance à vous.

 

[Holeshotman]

Re : Récupérer dernière valeur en abscisse d'un graphique

J'ai trouvé une piste de réponse, en récupérant la valeur de la dernière valeur de l'axe des abscisses.

Sub Xmax()
Dim Valeur As Single

Sheets("Feuil1").ChartObjects(1).Activate
With ActiveChart.Axes(xlCategory)
Valeur = .MaximumScale
End With

MsgBox Valeur

End Sub

Je devrais réussir à me débrouiller avec ça.

Merci quand même ! 😉

 

[job75]

Re : Récupérer dernière valeur en abscisse d'un graphique

Bonjour Holeshotman,

Je devrais réussir à me débrouiller avec ça.

Oui mais le maximum d'une échelle ce n'est pas du tout l'abscisse du dernier point...

Ceci répond au problème posé :

Sub AbscissePoint()
Dim t, valeur
With Sheets("Feuil1").ChartObjects("Graphique 1").Chart.SeriesCollection(1)
  t = .XValues
  valeur = t(.Points.Count)
End With
MsgBox valeur
End Sub

Pour l'ordonnée du dernier point :

Sub OrdonnéePoint()
Dim t, valeur
With Sheets("Feuil1").ChartObjects("Graphique 1").Chart.SeriesCollection(1)
  t = .Values
  valeur = t(.Points.Count)
End With
MsgBox valeur
End Sub

A+

 

[Holeshotman]

Re : Récupérer dernière valeur en abscisse d'un graphique

Bonjour Job75,

Effectivement, j'ai un peu détourné le problème en utilisant une ruse de guerre ! 😛
Ta solution répond parfaitement et de façon plus juste à ma problématique.

Merci beaucoup et bonne journée ! 😎

A+

 

[Holeshotman]

Re : Récupérer dernière valeur en abscisse d'un graphique

Et dans le même esprit, est-il possible de récupérer la première valeur en abscisse d'un graphique ?
Cela me serait bien utile ..

 

[job75]

Re : Récupérer dernière valeur en abscisse d'un graphique

Re,

Et dans le même esprit, est-il possible de récupérer la première valeur en abscisse d'un graphique ?

Justement, garder le même esprit...

valeur  = t(1)

A+

 

[Holeshotman]

Re : Récupérer dernière valeur en abscisse d'un graphique

Ah oui d'accord ...
Je m'excuse 😎

Merci en tout cas !