Déselection de graphes en VBA

[aurel0801]

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.

 

[Pierrot93]

Re : Déselection de graphes en VBA

Bonsoir,

bah ne les selectionne pas... essaye ceci, non testé :

Dim Graphique As ChartObject
With Sheets("Radar pôles-catégories")
For Each Graphique In .ChartObjects
    With Graphique.Chart.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

bon après midi
@+

 

[aurel0801]

Re : Déselection de graphes en VBA

Merci beaucoup pour ton aide, désormais tout fonctionne !!!