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 ?
A voir également:
- Pb récupération de la valeur d'un point dans un graphique
- Comment inserer une video dans un power point - Guide
- Changer de carte graphique - Guide
- Point de suite word - Guide
- Comment recuperer un message supprimé sur whatsapp - Guide
- Point de restauration - Guide
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
ç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
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
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
Je viens d'essayer Valeur = CSng(.DataLabel.Characters.Text) et j'ai exactement le même problème.
Déposer le fichier xls (réduit au nécessaire et anonymisé) sur cjoint.com et coller ici le lien fourni.
eric
En espérant que cela aidera.
Config: W7 et excel 2010
J'avais dit : réduit au nécessaire
C'est à dire avec un graphique déjà créé et juste les lignes de codes indispensables (pas 1500 lignes comme ici + appel à des fichiers extérieurs qui font tout planter)
eric
http://cjoint.com/?BLlpvYdKs0T
En espérant que ça aidera cette fois :-)