Bonjour,
J'ai un fichier Excel, qui comportent divers onglets contenant chacun un graphique, j'ai construit une macro afin de mettre une échelle automatique à mes graphiques et une autre pour imprimer les feuilles souhaitées. Cependant suite à la macro de d'échelle automatique, mes graphiques restent sélectionnés et le reste de la page ne s'imprime pas.
Un simple "echap" sur chaque feuille permet de déselectionner les graphes mais il doit exister une solution plus rapide et plus simple avec VBA.
J'ai essayé d'utiliser la fonction range("").select afin de se positionner ailleurs dans la feuille mais elle ne fonctionne pas.
Ci dessous la macro utilisée:
Dim Graphique As Object
With Sheets("Radar pôles-catégories")
For Each Graphique In .ChartObjects
.ChartObjects(Graphique.Name).Activate With ActiveChart.Axes(xlValue)
.MinimumScale = Sheets("Synthèse pôles-catégories").Range("MIN").Value
.MaximumScale = Sheets("Synthèse pôles-catégories").Range("MAX").Value
End With
Next Graphique
End With
Si vous avez des suggestions, je suis intéressée.
J'ai un fichier Excel, qui comportent divers onglets contenant chacun un graphique, j'ai construit une macro afin de mettre une échelle automatique à mes graphiques et une autre pour imprimer les feuilles souhaitées. Cependant suite à la macro de d'échelle automatique, mes graphiques restent sélectionnés et le reste de la page ne s'imprime pas.
Un simple "echap" sur chaque feuille permet de déselectionner les graphes mais il doit exister une solution plus rapide et plus simple avec VBA.
J'ai essayé d'utiliser la fonction range("").select afin de se positionner ailleurs dans la feuille mais elle ne fonctionne pas.
Ci dessous la macro utilisée:
Dim Graphique As Object
With Sheets("Radar pôles-catégories")
For Each Graphique In .ChartObjects
.ChartObjects(Graphique.Name).Activate With ActiveChart.Axes(xlValue)
.MinimumScale = Sheets("Synthèse pôles-catégories").Range("MIN").Value
.MaximumScale = Sheets("Synthèse pôles-catégories").Range("MAX").Value
End With
Next Graphique
End With
Si vous avez des suggestions, je suis intéressée.