Syntaxe pour boucle avec nombre d'item variable

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:

---

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

Code:

---

1 2 3 4

Dim Graph As ChartObject For Each Graph In activesheet.ChartObjects 'blabla Next Graph

---

Code:

---

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"

Code:

---

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

---

Merci;)