Discussion :

[Yullll]

Bonjour,

J'ai réussi a coder mon chartspace, cependant voila que je bute sur une chose qui me semblait très simple ....
J'essaye de changer les couleurs de mes séries qui sont définit par défaut pour l'instant donc pas terrible.
J'ai deja essayé :

Code :

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

Cht.SeriesCollection(3).Border.Color = RGB(255, 0, 0)

mais aussi :

Code :

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

 Cht.SeriesCollection(3).Interior.Color = RGB(255, 0, 0)

mais aussi :

Code :

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

Cht.SeriesCollection(3).Interior.Colorindex = 3

Rien a faire cette fameuse ligne ne veut pas changer de couleur....
Voici mon code complet :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
 
 
      Dim S1 As Object
      Dim TabAbscisses(), TabOrdonnees(), TabOrdonnees1(), TabOrdonnees2(), TabOrdonnees3()
      Dim Cht As ChChart
      Dim C As Object
      ChartSpace1.Clear
      ChartSpace1.Refresh
 
      ReDim TabAbscisses(0 To dercol_global - 2)
      ReDim TabOrdonnees(0 To dercol_global - 2)
      ReDim TabOrdonnees1(0 To dercol_global - 2)
      ReDim TabOrdonnees2(0 To dercol_global - 2)
      ReDim TabOrdonnees3(0 To dercol_global - 2)
 
 
    'Remplissage des tableaux 
    For i = 0 To dercol_global - 2
        TabAbscisses(i) = Right(sheets("Entrées").Cells(6, i + 2).Value, Len(sheets("Entrées").Cells(6, i + 2).Value) - 8)
        TabOrdonnees(i) = sheets("Entrées").Cells(Ligne_Ref, i + 2).Value
        TabOrdonnees1(i) = sheets("Sorties").Cells(Ligne_Ref, i + 2)
        TabOrdonnees2(i) = sheets("Stock BAAN").Cells(Ligne_Ref, i + 2)
        TabOrdonnees3(i) = sheets("Stock SAPHIR").Cells(Ligne_Ref, i + 2)
    Next i
 
    Set C = ChartSpace1.Constants
    Set Cht = ChartSpace1.Charts.Add
 
    With Cht
        'Type de graphique
        .Type = C.chChartTypeScatterLineMarkers
        .HasLegend = True
        .Legend.Position = C.chLegendPositionBottom
    End With
 
     Set S1 = Cht.SeriesCollection.Add
         With S1
              .Caption = "Entrées"
              .Type = C.chChartTypeColumnClustered
              .SetData C.chDimCategories, C.chDataLiteral, TabAbscisses
              .SetData C.chDimValues, C.chDataLiteral, TabOrdonnees
         End With
 
         Set S1 = Cht.SeriesCollection.Add
         With S1
              .Caption = "Sorties"
              .Type = C.chChartTypeColumnClustered
              .SetData C.chDimCategories, C.chDataLiteral, TabAbscisses
              .SetData C.chDimValues, C.chDataLiteral, TabOrdonnees1
         End With
 
         Set S1 = Cht.SeriesCollection.Add
         With S1
              .Caption = "Stock BAAN"
              .Type = C.chChartTypeLine
              .SetData C.chDimCategories, C.chDataLiteral, TabAbscisses
              .SetData C.chDimValues, C.chDataLiteral, TabOrdonnees2
         End With
 
 
         Set S1 = Cht.SeriesCollection.Add
         With S1
              .Caption = "Stock SAPHIR"
              .Type = C.chChartTypeLine
              .SetData C.chDimCategories, C.chDataLiteral, TabAbscisses
              .SetData C.chDimValues, C.chDataLiteral, TabOrdonnees3
         End With

[Yullll]

Personne n'a d'idée ?

Je cherche désespérément à faire un deuxième axe de valeur pour les séries 2 et 3.
Si quelqu'un a une idée ou même un tuto sur les chartspace bien complet je suis preneur également !

[Yullll]

Bon pour ceux que ca intérèsse j'ai trouvé ....
Tout simplement :

Code :

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

.line.color = RGB(255,0,0)

Cependant pour l'axe secondaire je suis toujours a la recherche d'une piste !