Holeshotman
XLDnaute Junior
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" :
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.
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" :
Code:
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.