Graphique: Séries axe

Bonjour,
j'ai un probleme avec un graphique, cela concerne les séries. Tout est indiqué dans mon fichier. Pouvez vous m'aider s'il vous plait.

Je compte sur vous, cela dépasse mes connaissances! :ccool:

A bientot!

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub test() Dim S As Series With Sheets("Feuil1").ChartObjects(1).Chart For Each S In .SeriesCollection If InStr(1, S.Name, "Heures") > 0 Then S.AxisGroup = xlPrimary ElseIf InStr(1, S.Name, "Taux") > 0 Then S.AxisGroup = xlSecondary End If Next S End With End Sub

---

Merci, je suis sur le cul.
Cela fait plusieurs mois, que je cherche à résoudre ce probleme.
Merci.