Problème avec SeriesCollection

Version imprimable

Bonjour tout le monde!

Voilà re des problèmes avec mon graphique. Le but de mon programme est de générer des courbes (de type nuage de points) en fonction d'un tableau d'environ 20 colonnes et dont le nombre de lignes est variable.

L'utilisateur choisit les données qu'il veut en X et en Y à travers deux séries de cases d'option (le code n'apparait pas mais fonctionne très bien!). En fonction du choix, le programme me sort deux paramètres XColonne et YColonne (qui correspondent vous l'aurez compris aux numéros des colonnes de X et de Y dans le tableau des données G_Tri_data)

Le programme va ensuite chercher les données correspondantes (ca, il le fait bien aussi).

Le problème se pose lorsque je veux afficher la courbe... La première courbe générée s'affiche parfaitement, la deuxième aussi et j'ai une erreur qui apparait (ligne en rouge dans le code ci dessous) lorsque je tente de générer une troisième courbe...
Code:

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 Public Sub CommandButton1_Click() Dim objChart As Chart, objRange As Range Dim XColonne As Integer, YColonne As Integer Dim ESheet As Boolean Dim Ctrl As OLEObject 'Selectionne les données voulues et créer un nouveau graphique Set ValueX = Worksheets("G_Tri_data").Range(Worksheets("G_Tri_data").Cells(2, XColonne), Worksheets("G_Tri_data").Cells(Rows.Count, XColonne)) Set ValueY = Worksheets("G_Tri_data").Range(Worksheets("G_Tri_data").Cells(2, YColonne), Worksheets("G_Tri_data").Cells(Rows.Count, YColonne)) Set objChart = ThisWorkbook.Charts.Add 'Mise en page du graphique objChart.Tab.ColorIndex = 25 objChart.ChartType = xlXYScatter i = ActiveWorkbook.Charts.Count With objChart .SeriesCollection.NewSeries .SeriesCollection(i).XValues = ValueX .SeriesCollection(i).Values = ValueY
Est ce que quelqu'un aurait une idée d'où cela pourrait venir?

20/04/2009, 14h58
aalex_38

Bonjour,

Je ne comprends pas bien l'utilisation que tu fais de "i" ?

Là tu as le nombre de graphique dans document :

Code:

i = ActiveWorkbook.Charts.Count

Ici ton numéro de série :

Code:

.SeriesCollection(i)

Il me semble qu'il y a quelque chose a creuser de ce cote !
20/04/2009, 15h17
Titwou

Merci de ta réponse rapide.

J'ai peut être mal compris l'utilisation du "i" maintenant que tu en parles... je l'ai utilisé pour désigner le nom du graphique dans lequel je veux incorporer les données.

L'utilisateur peut générer un nombre infini de graphiques (qui apparaitront dans de nouveaux onglets à chaque fois mais toujours en tant que dernier graphique) donc dans ce cas, il était nécessaire de localiser le graphique en question.

Voilà! J'espère avoir été clair! C'est bien comme cela qu'il faut procéder?
20/04/2009, 15h56
aalex_38

Citation:

Voilà! J'espère avoir été clair! C'est bien comme cela qu'il faut procéder?

Pour ajouter ton graphique en dernier graphique la solution me semble bonne
20/04/2009, 16h00
Titwou

Est ce que ca pourrais venir du fait que ValueX et ValueY sont des Range?

Il y a des exemples avec des tableaux dans le forum... mais le problème c'est que mon tableau ne peut pas être définit à l'avance.
20/04/2009, 18h41
aalex_38

Je n'ai bientôt plus internet ici, tu peux regarder ici

sinon je suis sur qu'il doit y avoir un bon tutorial quelque part.

Peux tu préciser ce qui coince pour l'instant, as-tu modifié ton code ?

Un tutoriel complet ici

quelques postes la, là

Merci pour ton temps et les liens.

Je n'ai pas modifié grand chose... J'ai essayé les autres codes mais je n'ai pas vu d'amélioration notable à part que ca bug dès le deuxième graphique!

J'ai toujours un message d'erreur sur la ligne en rouge. Le message qui s'affiche: "erreur 1004: la méthode 'SeriesCollection' de l'objet '_Chart' a échoué"

Code:

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
Public Sub btDrawCurve_Click()

Dim objChart As Chart, objRange As Range
Dim XColonne As Integer, YColonne As Integer
Dim ValueX As Range, ValueY As Range
Dim ESheet As Boolean
Dim Ctrl As OLEObject

    'Définition de l'axe X à travers 4 OptionButton appartenant au groupe XChoice

    For Each Ctrl In ActiveSheet.OLEObjects
        'Vérifie qu'il s'agit d'un OptionButton
        If TypeOf Ctrl.Object Is MSForms.OptionButton Then
            'Véfifie si l'OptionButton fait partie du groupe XChoice
             If Ctrl.Object.GroupName = "XChoice" Then
                'Définit la valeur de XColonne
                If Ctrl.Object.Value = True Then
                    'MsgBox Ctrl.Object.Caption
                    If Ctrl.Object.Caption = "Length" Then XColonne = 13
                    If Ctrl.Object.Caption = "Width" Then XColonne = 14
                    If Ctrl.Object.Caption = "Height" Then XColonne = 15
                    If Ctrl.Object.Caption = "Flow" Then XColonne = 28
                    Exit For
                End If
            End If
        End If
    Next

    'Définition de l'axe Y à travers 4 autres OptionButton appartenant au groupe YChoice
    
     For Each Ctrl In ActiveSheet.OLEObjects
        'Vérifie qu'il s'agit d'un OptionButton
        If TypeOf Ctrl.Object Is MSForms.OptionButton Then
            'Véfifie si l'OptionButton fait partie du groupe "YChoice"
             If Ctrl.Object.GroupName = "YChoice" Then
                'Définit la valeur de YColonne
                If Ctrl.Object.Value = True Then
                    'MsgBox Ctrl.Object.Caption
                    If Ctrl.Object.Caption = "Length" Then YColonne = 13
                    If Ctrl.Object.Caption = "Width" Then YColonne = 14
                    If Ctrl.Object.Caption = "Height" Then YColonne = 15
                    If Ctrl.Object.Caption = "Flow" Then YColonne = 28
                    Exit For
                End If
            End If
        End If
    Next


     'Définition des constantes ("G_Tri_data" est la feuille contenant les valeurs et sur la première ligne la désignation de la donnée)

EquipmentName = Worksheets("G_Tri_data").Range("E2").Value ' case de désignation de la machine étudiée

XTitle = Worksheets("G_Tri_data").Cells(1, XColonne).Value 'nom de l'axe X
YTitle = Worksheets("G_Tri_data").Cells(1, YColonne).Value 'nom de l'axe Y
Title = YTitle & "=f(" & XTitle & ")" 'titre du graphique

    'Cas où l'opérateur choisirait deux fois la même variable X=Y
    If XTitle = YTitle Then
    MsgBox "You have chosen the same parameter for X and Y. Please change your choice.", , "Why?"
    Exit Sub
    End If
    
    'Selectionne les données voulues et créer un nouveau graphique
   
    Set ValueX = Worksheets("G_Tri_data").Range(Worksheets("G_Tri_data").Cells(2, XColonne), Worksheets("G_Tri_data").Cells(Rows.Count, XColonne))

    Set ValueY = Worksheets("G_Tri_data").Range(Worksheets("G_Tri_data").Cells(2, YColonne), Worksheets("G_Tri_data").Cells(Rows.Count, YColonne))

    Set objChart = ThisWorkbook.Charts.Add
      
    

    'Vérification de l'existence d'une feuille du même nom à l'aide de la fonction fExiste
    ESheet = fExiste(Title)
    
    If ESheet = True Then
                Worksheets.Application.DisplayAlerts = False
                Sheets(Title).Delete
                objChart.Name = Title
                Worksheets.Application.DisplayAlerts = True
    Else
                objChart.Name = Title
    End If
 
    'Mise en page du graphique
    
    objChart.Tab.ColorIndex = 25
    objChart.ChartType = xlXYScatter
    
   'Définition des données pour le graphique
    i = ActiveWorkbook.Charts.Count
    
    With objChart
        .SeriesCollection.NewSeries
        .SeriesCollection(i).XValues = ValueX
        .SeriesCollection(i).Values = ValueY
    
  'Re mise en page        
        .HasTitle = True
        .HasLegend = False
        
        With .ChartTitle
            .Characters.Text = " " & EquipmentName & " - " & Title
            .Shadow = True
            .Border.Weight = xlHairline
        
        End With
   
        With .Axes(xlValue, xlPrimary)
            .HasTitle = True
            .AxisTitle.Characters.Text = " " & YTitle
        
        End With
        
   
        With .Axes(xlCategory)
            .HasTitle = True
            .AxisTitle.Characters.Text = " " & XTitle
        
        End With

    End With

End Sub

Je vais continué du côté des codes que tu m'as donné

Youhou!:yaisse2:
J'ai trouvé une solution qui n'est peut être pas la meilleure mais qui semble marcher.
Je fais suivre le code si ca peut aider qqun...

Code:

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
Private Sub btDrawCurve_Click()
Dim objChart As Chart, objRange As Range
Dim XColonne As Integer, YColonne As Integer
Dim ValueX As Variant, ValueY As Variant
Dim ESheet As Boolean
Dim Ctrl As OLEObject
Dim ns As Variant
 
    'Définition de l'axe X à travers 4 OptionButton appartenant au groupe XChoice
 
    For Each Ctrl In Sheets("Command Board").OLEObjects
        'Vérifie qu'il s'agit d'un OptionButton
        If TypeOf Ctrl.Object Is MSForms.optionButton Then
            'Véfifie si l'OptionButton fait partie du groupe XChoice
             If Ctrl.Object.GroupName = "XChoice" Then
                'Définit la valeur de XColonne
                If Ctrl.Object.Value = True Then
                    'MsgBox Ctrl.Object.Caption
                    If Ctrl.Object.Caption = "Length" Then XColonne = 13
                    If Ctrl.Object.Caption = "Width" Then XColonne = 14
                    If Ctrl.Object.Caption = "Height" Then XColonne = 15
                    If Ctrl.Object.Caption = "Flow" Then XColonne = 28
                    Exit For
                End If
            End If
        End If
    Next
 
    'Définition de l'axe Y à travers 4 autres OptionButton appartenant au groupe YChoice
 
     For Each Ctrl In ActiveSheet.OLEObjects
        'Vérifie qu'il s'agit d'un OptionButton
        If TypeOf Ctrl.Object Is MSForms.optionButton Then
            'Véfifie si l'OptionButton fait partie du groupe YChoice
             If Ctrl.Object.GroupName = "YChoice" Then
                'Définit la valeur de YColonne
                If Ctrl.Object.Value = True Then
                    'MsgBox Ctrl.Object.Caption
                    If Ctrl.Object.Caption = "Length" Then YColonne = 13
                    If Ctrl.Object.Caption = "Width" Then YColonne = 14
                    If Ctrl.Object.Caption = "Height" Then YColonne = 15
                    If Ctrl.Object.Caption = "Flow" Then YColonne = 28
                    Exit For
                End If
            End If
        End If
    Next
 
 
     'Définition des constantes ("G_Tri_data" est la feuille contenant les valeurs et sur la première ligne la désignation de la donnée)
 
EquipmentName = Worksheets("G_Tri_data").Range("E2").Value
 
XTitle = Worksheets("G_Tri_data").Cells(1, XColonne).Value
YTitle = Worksheets("G_Tri_data").Cells(1, YColonne).Value
Title = YTitle & "=f(" & XTitle & ")"
 
    'Cas où l'opérateur choisirait deux fois la même variable
    If XTitle = YTitle Then
    MsgBox "You have chosen the same parameter for X and Y. Please change your choice.", , "Why?"
    Exit Sub
    End If
 
    'Selectionne les données voulues et créer un nouveau graphique
 
    Sheets("G_tri_data").Select
    Set ValueX = Worksheets("G_Tri_data").Range(Worksheets("G_Tri_data").Cells(2, XColonne), Worksheets("G_Tri_data").Cells(Rows.Count, XColonne))
    Set ValueY = Worksheets("G_Tri_data").Range(Worksheets("G_Tri_data").Cells(2, YColonne), Worksheets("G_Tri_data").Cells(Rows.Count, YColonne))
 
    Set objChart = ThisWorkbook.Charts.Add
 
    'Vérification de l'existence d'une feuille du même nom
    ESheet = fExiste(Title)
 
    If ESheet = True Then
                Worksheets.Application.DisplayAlerts = False
                Sheets(Title).Delete
                objChart.Name = Title
                Worksheets.Application.DisplayAlerts = True
    Else
                objChart.Name = Title
    End If
 
    'Mise en page du graphique
    i = ActiveWorkbook.Charts.Count
 
    Charts(Title).Activate
 
    With objChart
        .Tab.ColorIndex = 25
        .ChartType = xlXYScatter
 
        .SeriesCollection.NewSeries
    Charts(i).SeriesCollection(1).Values = ValueY
    Charts(i).SeriesCollection(1).XValues = ValueX
 
        .HasTitle = True
        .HasLegend = False
 
        With .ChartTitle
            .Characters.Text = " " & EquipmentName & " - " & Title
            .Shadow = True
            .Border.Weight = xlHairline
 
        End With
 
        With .Axes(xlValue, xlPrimary)
            .HasTitle = True
            .AxisTitle.Characters.Text = " " & YTitle
 
        End With
 
 
        With .Axes(xlCategory)
            .HasTitle = True
            .AxisTitle.Characters.Text = " " & XTitle
 
        End With
 
    End With
 
Set ValueX = Nothing
Set ValueY = Nothing
Set ns = Nothing
 
End Sub

Merci beaucoup pour ton aide aalex_38! Tes liens m'ont été bien utiles pour m'orienter vers cette solution.