VBA : dé-sélectionner un graph

[F22Raptor]

Hello,
Je fais un Activate sur un graph, pour modifier l'échelle.
A la fin, le graph reste sélectionné (poignées sur les bords).

Je voudrais le "désélectionner", sans pour autant sélectionner une cellule, car ça bouge la fenêtre.

Une idée ?

 

[Efgé]

Re : VBA : dé-sélectionner un graph

Bonjour F22Raptor
Selectionne une cellule qui se trouve sous le graphique.....
Cordialement

 

[MJ13]

Re : VBA : dé-sélectionner un graph

Bonjour F22Raptor, Efgé

Essaye avec un code de ce type:

ActiveSheet.Cells(1, 1).Select

PS: Bonjour Pierrot 🙂, Ah, j'ai encore mal compris 😱.

 

[Pierrot93]

Re : VBA : dé-sélectionner un graph

Bonjour à tous,

petite remarque au passage, nul besoin d'activer ou de selectionner un graphique pour agir sur l'échelle de celui-ci...

bon après midi
@+

 

[F22Raptor]

Re : VBA : dé-sélectionner un graph

Hello Pierrot,
Si je ne fais pas le Activate avant le reste du code, il ne le prend pas 🙁

ActiveSheet.ChartObjects("Graphique 1").Activate

With ActiveChart

.Axes(xlValue).MinimumScale = Sheets("data").Cells(66, 3).Value
.Axes(xlValue).MaximumScale = Sheets("data").Cells(65, 3).Value

.Axes(xlCategory).MinimumScale = Sheets("data").Cells(68, 3).Value
.Axes(xlCategory).MaximumScale = Sheets("data").Cells(67, 3).Value

End With

J'ai essayé avec With ActiveSheet.ChartObjects("Graphique 1") mais ça veut pas !

 

[Pierrot93]

Re : VBA : dé-sélectionner un graph

Re,

essaye en modifiant comme suit :

With ActiveSheet.ChartObjects("Graphique 1").Chart
    .Axes(xlValue).MinimumScale = Sheets("data").Cells(66, 3).Value
    .Axes(xlValue).MaximumScale = Sheets("data").Cells(65, 3).Value
    .Axes(xlCategory).MinimumScale = Sheets("data").Cells(68, 3).Value
    .Axes(xlCategory).MaximumScale = Sheets("data").Cells(67, 3).Value
End With

 

[F22Raptor]

Re : VBA : dé-sélectionner un graph

wunderbar ! 😀 Merci Pierrot