Bonjour à tous,
Voilà mon souci, j'espère pouvoir trouver une solution
En fait, grâce à l'enregistreur de Macro, je créé un graphique à partir de données, jusque là pas de problème.
Sauf que, une fois le graphique créé, j'aimerai que la macro mette en forme le tableau (en terme de dimension et de positionnement sur la feuille).
Or, cela ne marche pas. Je pense savoir d'ou vient le problème, car la Macro enregistre le nom du graphique précédemment créer, et donc lorsque j'en créé un nouveau (après avoir effacé le graphique précédent), et bien la mise en forme ne marche pas.
Ma question est donc : Comment faire pour que la mise en forme du graphique se fasse avec la macro.
Voici le moment ou le script merdouille, je pense que c'est à cause de "Graphique 15", à la place, je voudrai le remplacer par "le grahique qui vient d'être créé".
Merci à vous pour votre aide.
Voilà mon souci, j'espère pouvoir trouver une solution
En fait, grâce à l'enregistreur de Macro, je créé un graphique à partir de données, jusque là pas de problème.
Sauf que, une fois le graphique créé, j'aimerai que la macro mette en forme le tableau (en terme de dimension et de positionnement sur la feuille).
Or, cela ne marche pas. Je pense savoir d'ou vient le problème, car la Macro enregistre le nom du graphique précédemment créer, et donc lorsque j'en créé un nouveau (après avoir effacé le graphique précédent), et bien la mise en forme ne marche pas.
Ma question est donc : Comment faire pour que la mise en forme du graphique se fasse avec la macro.
Voici le moment ou le script merdouille, je pense que c'est à cause de "Graphique 15", à la place, je voudrai le remplacer par "le grahique qui vient d'être créé".
Merci à vous pour votre aide.
ActiveChart.HasLegend = False
ActiveSheet.Shapes("Graphique 15").ScaleWidth 0.71, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Graphique 15").ScaleHeight 0.61, msoFalse, _
msoScaleFromBottomRight
ActiveSheet.Shapes("Graphique 15").ScaleWidth 0.85, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Graphique 15").IncrementLeft 114#
ActiveSheet.Shapes("Graphique 15").IncrementTop -34.5