VBA - Graphique - Récupérer données externes

JCA06

XLDnaute Occasionnel
Bonjour le Forum, ça fait un bail !

Et pourtant, j'en ai fait des lignes en vba depuis le temps !
Bon d'accord, la ou je rédige 100 lignes, certains pourraient le faire en 30, mais bon...

Mais il y a un domaine que je n'ai pas eu l'occasion d'utiliser en vba, c'est le domaine des graphiques, et du coup, je n'y connais pas grand chose.
Voici ma question : je reçois des fichiers avec des graphiques dont les données sont externes au fichier que je reçois. Y-a-t'il moyen de récupérer ces données en vba ?
J'ai trouvé quelques pistes à base de ActiveChart.SeriesCollection(1) mais je pensais pouvoir récupérer le nombre de données avec la propriété count ou le contenu avec item.
Voici le bout de code que j'ai essayé :
ActiveSheet.ChartObjects('Graphique 3').Activate
j = ActiveChart.SeriesCollection(1).Count - 1
For i = 0 To j
Range('A' & 80 + i) = ActiveChart.SeriesCollection(1).Item(i)
Next i

J'ai bien compris le message d'erreur, mais je n'ai pas la solution...

Merci de bien vouloir m'aider.
 

MichelXld

XLDnaute Barbatruc
bonsoir JCA06

tu peux tester cette adaptation

ActiveSheet.ChartObjects('Graphique 3').Activate
j = ActiveChart.SeriesCollection(1).Points.Count

For i = 1 To j

With ActiveChart.SeriesCollection(1).Points(i)
.HasDataLabel = True 'affiche la valeur du point dans le graphique
Range('A' & 80 + i) = .DataLabel.Characters.Text 'recupere la valeur du point
.HasDataLabel = False 'ne plus afficher la valeur du point
End With

Next i



bonne soirée
MichelXld

Message édité par: michelxld, à: 14/02/2006 18:13
 

JCA06

XLDnaute Occasionnel
Bonjour le Forum, bonjour Michel et bonjour Thierry,

Toujours aussi efficace XLD !
Et pour le coup, je ne regrette pas d'avoir demandé, parce qu'il fallait y penser à aller chercher les valeurs à partir des étiquettes !

J'ai donc utilisé cela en y ajoutant une pincée de xlDataLabelsShowValue puis une pincée de xlDataLabelsShowLabel pour récupérer les étiquettes et les valeurs.

Merci pour l'astuce !

Pour Thierry, ce sera avec grand plaisir et quand tu veux !
 

Discussions similaires

Statistiques des forums

Discussions
311 716
Messages
2 081 828
Membres
101 823
dernier inscrit
mohamed3s