Bonjour,
Je souhaiterai créer un bouton sur ma page Excel qui me permettrai de générer automatiquement un "camembert".
Pour cela j'ai fait tout le processus pour enregistrer ma macro, et j'ai créé mon bouton sur lequel j'ai affecté cette macro.
Résultat :
J'ai ensuite supprimé le graphique que je venais de générer pour tester le bouton et j'ai eu le droit à
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = x13DPieExploded ActiveChart.SeriesCollection (1).Name = "='Septembre 2018' !$B$24" ActiveChart.SeriesCollection(1).Value = _ "='Septembre 2018' !$E$24; 'Septembre 2018' !$G$24; 'Septembre 2018' !$J$24" ActiveChart.SeriesCollection(1).XValue = _ "='Septembre 2018' !$E$23; 'Septembre 2018' !$G$23; 'Septembre 2018' !$J$23" ActiveChart.SeriesCollection(1).Select ActiveChart.SeriesCollection(1).ApplyDAataLabels
Lorsque je lance le débogage, ça bloque à cette ligne :erreur d'exécution '1004': Erreur définie par l'application ou par l'objet
Mais je ne comprends pas pourquoi, une idée ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 ActiveChart.SeriesCollection(1).Value = _ "='Septembre 2018' !$E$24; 'Septembre 2018' !$G$24; 'Septembre 2018' !$J$24"
QUESTION SUPPLÉMENTAIRE : À l'avenir j'aimerais utiliser cette macro dans d'autres feuilles, existe-t-il une commande pour remplacer "Septembre 2018" (nom de ma feuille), par un nom générique qui récupérera le nom de la feuille en cours?
PS, soyez indulgent, je débute.... Et un grand merci d'avance à tout ceux qui voudront bien m'aider !
Partager