Discussion :

[celineSGH]

Reprise d'une ancienne discussion non finie concernant la manipulation de graph sur form, pour la creation d'une deuxieme axe:

"AxisGroup = 2 " ne marche pas du tout... Quelqu'un sait comment attribuer a une courbe le deuxieme axe? Sans affecter le premier?

L'un parle de sous et l'autre de m2 donc c'est a ne pas melanger.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Set c = Userform1.ChartSpace1.Constants
  Set Cht = Userform1.ChartSpace1.Charts
 
    x = Cht.Item(0).SeriesCollection.count
    Cht.Item(0).SeriesCollection.Add
 
    With Cht.Item(0)
        .Axes.Add
        .SeriesCollection(x).SetData c.chDimValues, c.chDataLiteral, plage
        .SeriesCollection(x).Interior.Color = 50000 * (j + 1)
        .SeriesCollection(x).AxisGroup = 2 '(Et la c'est le drame)
    End With

[SilkyRoad]

bonsoir,

je ne suis pas sur d'avoir compris mais voici un exemple pour créer une deuxième axe vertical sur la droite du graphique :

Code :

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

Cht.Axes.Add Cht.Axes(C.chDimValues).Scaling, C.chAxisPositionRight, C.chValueAxis

bon week end
michel

[celineSGH]

Je suis tout a fait d'accord, mais le probleme est: comment faire pour qu'une courbe suive ce repere.
Comment dire...? Toutes mes courbes dependent de l'axe de gauche, impossible d'en assigner une a droite. Cela est facile pour un graphique Excel normal:

Code :

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

SeriesCollection(x).AxisGroup = 2

Mais ici cela ne fonctionne pas.
Une idee?

En tous cas merci pour la reponse.

[celineSGH]

Personne n'a d'idee?? snif...
Mon probleme est-il sans solution?