Pb récupération de la valeur d'un point dans un graphique
Résolu
VBACripteur
-
VBACripteur -
VBACripteur -
Bonjour,
Je souhaite récupérer certaines valeur dans un graphique nommé "Graphique L14" de type histogramme; pour cela, j'utilise la sub suivante:
Sub pointsGraph()
Dim Valeur As Single
With Sheets("Feuil1").ChartObjects("Graphique L14").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
j'ai le message d'erreur "Erreur 13 : incompatibilité de type".
Quand j'execute en "F5" et que je clique sur "Débogage", c'est la ligne en gras qui semble poser pb.
Si j'execute toute la sub en pas à pas, je n'ai pas de message d'erreur.
Quelqu'un a-t-il une piste ?
Je souhaite récupérer certaines valeur dans un graphique nommé "Graphique L14" de type histogramme; pour cela, j'utilise la sub suivante:
Sub pointsGraph()
Dim Valeur As Single
With Sheets("Feuil1").ChartObjects("Graphique L14").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
j'ai le message d'erreur "Erreur 13 : incompatibilité de type".
Quand j'execute en "F5" et que je clique sur "Débogage", c'est la ligne en gras qui semble poser pb.
Si j'execute toute la sub en pas à pas, je n'ai pas de message d'erreur.
Quelqu'un a-t-il une piste ?
2 réponses
-
Bonjour,
ça m'étonne que tu n'aies pas d'erreur en pas à pas.
Valeur est Single et tu y mets un texte...
essaie avec :
Valeur = CSng(.DataLabel.Characters.Text)
eric
-
Bonjour,
C'est mieux oui ;-)
Valeur = CSng(.DataLabel.Text)
Mais pourquoi ne pas récupérer la valeur directement dans la table des données ?
eric
-
Ca y est ça fonctionne avec Valeur = CSng(.DataLabel.Text)
Je ne récupère pas directement les valeurs car historiquement j'ai créée 1 graph, puis 2 puis...10 et c'est seulement après que j'ai ajouté un tas de calculs sur un mois, 3 mois, en combinant des graphs, etc...
Les données sont "téléchargées" à partir de différents fichiers sur un serveur annexe.
Elle ne sont donc pas présentes dans mon fichier ailleurs que dans les graphs.
VBACripteur
-
