Discussion :

[auban]

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!

A bientot!

[Daniel.C]

Bonjour,

Code :

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

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

[auban]

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