Bonjour,

Je suis neophyte avec le Chartspace et je souhaiterai utiliser Chartspace pour créer un graphique dans un userform, j'utilise un code tres fortement inspiré de celui de SilkyRoad:
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
Private Sub CommandButton1_Click()
Dim i As Integer, x As Integer
Dim j As Integer
Dim Tableau(30), Plage(30)
 
'suppression des series existantes dans le ChartSpace
For i = Cht.SeriesCollection.Count To 1 Step -1
Cht.SeriesCollection.Delete i - 1
Next i
 
For i = 1 To 30
Tableau(i) = Cells(1, 7 + i) 'Abscisses( plage de cellules H1:AJ1 )
Next i
Cht.Type = C.chChartTypeScatterLine 'type de graphique:Barres
 
For j = 0 To ListBox1.ListCount - 1 'boucle sur les éléments de la listbox
    If ListBox1.Selected(j) = True Then
 
        If Cht.SeriesCollection.Count > 0 Then Cht.SeriesCollection.Add
 
        For i = 1 To 30
        Plage(i) = Cells(j + 2, 7 + i) 'recuperation Ordonnees pour chaque série
        Next i
 
        With Cht
        .SetData C.chDimCategories, C.chDataLiteral, Tableau
        .SeriesCollection(x).SetData C.chDimValues, C.chDataLiteral, Plage
        .SeriesCollection(x).Interior.Color = 50000 * (j + 1)
        End With
 
        x = x + 1
        Erase Plage
    End If
Next j
 
End Sub
J'ai changé le type de graphique, j'utilise un type "ScatterLine", et cela bloque à cette ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
        .SeriesCollection(x).SetData C.chDimValues, C.chDataLiteral, Plage
Avec le message suivant "Dimension specifiée non valide avec le type de graphique en cours.
Merci d'avance pour votre aide.