Pb récupération de la valeur d'un point dans un graphique

Résolu/Fermé

VBACripteur - 10 déc. 2012 à 13:57
VBACripteur - 12 déc. 2012 à 10:03

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 ?

A voir également:

Pb récupération de la valeur d'un point dans un graphique
Comment recuperer un message supprimé sur whatsapp - Guide
Comment inserer une video dans un power point - Guide
Point de restauration - Guide
Point de suite word - Guide
Comment récupérer un compte facebook piraté - Guide

2 réponses

Réponse 1 / 2

eriiic Messages postés 24601 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2024 7 243
10 déc. 2012 à 15:05

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

VBACripteur
10 déc. 2012 à 15:31

Bonjour,

Je viens d'essayer Valeur = CSng(.DataLabel.Characters.Text) et j'ai exactement le même problème.

eriiic Messages postés 24601 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2024 7 243
10 déc. 2012 à 15:52

Peut-être qu'avec un fichier exemple on pourra chercher.
Déposer le fichier xls (réduit au nécessaire et anonymisé) sur cjoint.com et coller ici le lien fourni.
eric

VBACripteur
Modifié par VBACripteur le 10/12/2012 à 16:02

Voilà le lien http://cjoint.com/?BLkp7OfthEY

En espérant que cela aidera.

Config: W7 et excel 2010

eriiic Messages postés 24601 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2024 7 243
10 déc. 2012 à 17:52

non, ça n'aide pas.
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

VBACripteur
11 déc. 2012 à 15:23

Désolé eriiic , voici le nouveau lien avec le code "light".

http://cjoint.com/?BLlpvYdKs0T

En espérant que ça aidera cette fois :-)

Réponse 2 / 2

eriiic Messages postés 24601 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2024 7 243
11 déc. 2012 à 17:24

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

VBACripteur
12 déc. 2012 à 10:03

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

Discussions similaires

Nuages de point avec abscisses différentes

Quel est l'émoji du point d'interrogation dans un carré ?

Score qui augmente de 20 à 30 points d'un coup