Cekankonvaou
XLDnaute Junior
Bonjour à tous,
J'ai un fichier Excel qui me permet de suivre des indicateurs professionnels.
Jusque la, j'avais mon graphique sur la même page que les données qui l'alimentaient.
Devant ajouter d'autres graphiques, j'ai voulu séparer les données et les graphiques sur deux feuilles séparées.
Je n'arrive plus à faire fonctionner la macro qui me fait la mise à jour du graphique :
ça fonctionnait très bien jusqu'à ce que je rajoute
Si je ne le mets pas, évidemment, je ne vais pas chercher les données sur la bonne feuille, si je me mets, j'ai le message d'erreur :"Erreur d'exécution 1004. Erreur définie par l'application ou l'obbjet"
Je suis sur que c'est trois fois rien mais je n'arrive pas à me dépatouiller de ça
Une bonne âme pour me dépanner, s'iou plait???
Bertrand
J'ai un fichier Excel qui me permet de suivre des indicateurs professionnels.
Jusque la, j'avais mon graphique sur la même page que les données qui l'alimentaient.
Devant ajouter d'autres graphiques, j'ai voulu séparer les données et les graphiques sur deux feuilles séparées.
Je n'arrive plus à faire fonctionner la macro qui me fait la mise à jour du graphique :
Code:
fintab = Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Graf").ChartObjects("Graphique 1").Activate
ActiveChart.Axes(xlValue).Select
'série "valeur col2
ActiveChart.SeriesCollection(2).Values = Sheets("Data").Range(Cells(2, 2), Cells(fintab, 2))
ActiveChart.SeriesCollection(2).XValues = Sheets("Data").Range(Cells(2, 1), Cells(fintab, 1))
ça fonctionnait très bien jusqu'à ce que je rajoute
Code:
Sheets("Data").
Si je ne le mets pas, évidemment, je ne vais pas chercher les données sur la bonne feuille, si je me mets, j'ai le message d'erreur :"Erreur d'exécution 1004. Erreur définie par l'application ou l'obbjet"
Je suis sur que c'est trois fois rien mais je n'arrive pas à me dépatouiller de ça
Une bonne âme pour me dépanner, s'iou plait???
Bertrand
Dernière édition: