Discussion :

[Daniela_]

Bonjour,

Je voudrais effectuer une boucle sur des graphes mais il n'y a jamais le même nombre de graphes.

J'ai essayé ce code mais je pense qu'il faut rajouter quelque chose :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
For Each Chart In ActiveSheet
    blablabla
 
    Next Chart

Evidemment Chart=Empty, comment faire pour que Chart signifie un graphique de la page excel ?

Merci de vos réponses

Daniela

[EngueEngue]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Graph As ChartObject
For Each Graph In activesheet.ChartObjects
'blabla
Next Graph

[Daniela_]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim max As Integer '''''''''''''''''''''''''''''''''''''dimensionnement de l'axe secondaire
max = 134
Dim Graph As ChartObject
For Each Graph In ActiveSheet.ChartObjects
 
    Graph.Axes(xlValue, xlSecondary).MaximumScale = max
    Graph.Axes(xlValue, xlSecondary).MinimumScale = 0
 
    Next Graph

Ça ne marche pas

ligne 6 "error 438, object doesn't support this property or method"

[EngueEngue]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Graph.chart.Axes(xlValue, xlSecondary).MaximumScale = max

[Daniela_]

Merci