[VBA][EXCEL] Erreur génération d'un graphique

Version imprimable

Bonjour bonjour,

j'ai un script vba qui génère 6 graphiques (dans 6 feuilles différentes) dans le meme fichier. Pour chaque graphique j'utilise ce code (plus ou moins) au début :
Code:

1 2 3 4 5 6 7 8 9 10 11 Set mychart = xlapp.Charts.Add mychart.ChartType = xlLine For i = 1 To mychart.SeriesCollection.Count mychart.SeriesCollection(1).Delete Next i For i = 3 To nbcol mychart.SeriesCollection.NewSeries mychart.SeriesCollection(i - 2).Name = "=tableaux_unites!R" & debut & "C" & i mychart.SeriesCollection(i - 2).Values = "=tableaux_unites!R" & debut + 1 & "C" & i & ":R" & debut + 12 & "C" & i Next i
et au final un mychart = nothing.

Cela marche bien pour les 5 graphiques sauf quand il arrive au dernier, il me fait un erreur sur le mychart.SeriesCollection(1).Delete :
La méthode Delete de la classe Series a échoué

et ensuite une autre erreur sur mychart.SeriesCollection(i - 2).Name... :
Impossible de définir la propriété Name de la classe Series.

Est-ce que je fais un erreur à quelque part ? ce qui est bizarre c'est que ça marche bien pour les 5 premiers graphiques.

Merci d'avance pour votre aide

16/01/2006, 09h30
ouskel'n'or

Si je comprends bien ce que tu fais, tu ajoutes un graphe et tu supprimes une série. C'est bien ça ?

Je procéde autrement mais ce n'est valable que si tes graphes sont uniformes (même nombre de courbes)
Est-ce le cas ?
Si oui, je scinde les opérations en deux, création de tous les graphes, puis, effacement de la série voulue pour tous les graphes.
J'ai mis le code la semaine dernière sur le forum

Si ça t'intéresse, tu dis

A+
16/01/2006, 10h15
PoZZyX

Oui ça m'interesse parce que c'est justement le problème. Les graphes n'ont pas forcément le meme nombre de série, et quand je créé un nouveau graphe, il a toujours les séries de l'ancien graphe, c'est pour ça que je les supprime au début.
16/01/2006, 11h16
ouskel'n'or

Hello,

Je n'ai pas retrouvé... :cry: et pourtant j'ai cherché. Sans doute un nom de sujet mal adapté.
En relisant ton code, je me suis posé la question : As-tu accordé ton nombre de colonnes (nbcol) au décalage que je perçois entre ton n° de graphe et ton n° de colonne ?
En attendant ta réponse, je regarde pour le code que j'utilise.

A+
16/01/2006, 11h28
PoZZyX

oui, les valeurs sélectionner sont les bonnes, mais de toute façon le problème ce n'est pas le résultat du graphique, puisqu'il ne me laisse pas générer le graphique a cause de l'erreur sur le series delete et sur le series.name
16/01/2006, 11h39
SilkyRoad
bonjour

tu peux tester ce type de synthaxe
Code:

1 2 3 4 Dim J as Integer For j = mychart.SeriesCollection.Count To 1 Step -1 mychart.SeriesCollection(j).Delete Next j
par contre je ne comprend pas pourquoi tu supprimes des series dans un graphique que tu viens de crééer 2 lignes plus haut

Code:

Set mychart = xlapp.Charts.Add

pour le nom des series tu peux essayer

Code:

mychart.SeriesCollection(i - 2).Name = Sheets("tableaux_unites").Cells(Debut, i)

bonne journée
michel
16/01/2006, 11h49
PoZZyX

en fait je supprimer les séries dans le graphique que je viens de créer car je ne sais pas pourquoi, mais excel conserve les séries du graphique précédent.

si le graphique précédent a 5 séries, et que je créé un nouveau graphique, le nouveau aura ces 5 séries + les nouvelles que j'ajoute.

Avec ta méthode du delete et ta méthode du name j'ai toujours les memes erreurs dans les deux cas.

Merci quand meme

C'est la solution de SilkyRoad que je voulais te proposer en l'appliquant à tous les graphes. Si ça ne marche pas, pourquoi ne pas définir tes graphes à la création ?
Code:

1 2 3 4 5 6 LaPlage = "A1:D8" Charts.Add ActiveChart.ChartType = xlLineMarkers ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range(LaPlage), PlotBy:=xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1" Range("A1").Select 'Juste pour sortir du graphe
Tu ne devrais pas avoir de problème de reproduction de l'ancien graphe...

Tu dis

16/01/2006, 12h33
SilkyRoad

rebonjour

est il possible de voir l'ensemble de la procedure , nottament la methode utilisée pour supprimer les anciens graphiques . il n'y a pas de raison que les anciennes series s'affichent dans un nouveau graphique

bonne journée
michel

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
 
' GRAPHIQUE 5
    Me.lbl_etape.Caption = "En cours : étape 11/12"
    DoEvents
    debut = debut2
 
    Set xlSheet = xlBook.Worksheets("tableaux_unites")
    nbcol = 2
    Do
        nbcol = nbcol + 1
    Loop While xlSheet.Cells(debut, nbcol + 1).Value <> ""
 
    xlapp.ActiveChart.Deselect
 
    Set mychart = xlapp.Charts.Add
    mychart.ChartType = xlLine
    For i = 1 To mychart.SeriesCollection.Count
        mychart.SeriesCollection(1).Delete
    Next i
 
    For i = 3 To nbcol
        mychart.SeriesCollection.NewSeries
        mychart.SeriesCollection(i - 2).Name = "=tableaux_unites!R" & debut & "C" & i
        mychart.SeriesCollection(i - 2).Values = "=tableaux_unites!R" & debut + 1 & "C" & i & ":R" & debut + 12 & "C" & i
    Next i
    mychart.Location WHERE:=xlLocationAsNewSheet, Name:="TauxCumulDom"
    With mychart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Taux cumulés Cimo par unité"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
    mychart.HasLegend = False
    mychart.HasDataTable = True
    mychart.DataTable.ShowLegendKey = True
    mychart.Axes(xlValue).Select
    xlapp.Selection.TickLabels.NumberFormat = "0.00%"
 
    If nombre_importation > 1 Then
        For i = 3 To nbcol
            mychart.SeriesCollection(i - 2).Select
            With xlapp.Selection.Border
                .ColorIndex = 57
                .Weight = xlThick
                .LineStyle = xlContinuous
            End With
            With xlapp.Selection
                .MarkerBackgroundColorIndex = xlNone
                .MarkerForegroundColorIndex = xlNone
                .MarkerStyle = xlNone
                .Smooth = False
                .MarkerSize = 3
                .Shadow = False
            End With
        Next i
    End If
 
    Set mychart = Nothing
 
    ' GRAPHIQUE 6
    Me.lbl_etape.Caption = "En cours : étape 12/12"
    DoEvents
    debut = debut3
 
    Set xlSheet = xlBook.Worksheets("tableaux_unites")
    nbcol = 2
    Do
        nbcol = nbcol + 1
    Loop While xlSheet.Cells(debut, nbcol + 1).Value <> ""
 
 
 
    Set mychart = xlapp.Charts.Add
    mychart.ChartType = xlLine
    'For i = 1 To mychart.SeriesCollection.Count
        'mychart.SeriesCollection(1).Delete
    'Next i
    For i = mychart.SeriesCollection.Count To 1 Step -1
        'mychart.SeriesCollection(i).Delete
    Next i
 
 
    'For i = 3 To nbcol
    For i = 3 To mychart.SeriesCollection.Count + 2
        mychart.SeriesCollection.NewSeries
        'mychart.SeriesCollection(i - 2).Name = "=tableaux_unites!R" & debut & "C" & i
        mychart.SeriesCollection(i - 2).Name = xlapp.Sheets("tableaux_unites").Cells(debut, i)
        mychart.SeriesCollection(i - 2).Values = "=tableaux_unites!R" & debut + 1 & "C" & i & ":R" & debut + 12 & "C" & i
    Next i
    mychart.Location WHERE:=xlLocationAsNewSheet, Name:="TauxMobileDom"
    With mychart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Taux mobiles Cimo par unité"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
    mychart.HasLegend = False
    mychart.HasDataTable = True
    mychart.DataTable.ShowLegendKey = True
    mychart.Axes(xlValue).Select
    xlapp.Selection.TickLabels.NumberFormat = "0.00%"
 
    If nombre_importation > 1 Then
        For i = 3 To nbcol
            mychart.SeriesCollection(i - 2).Select
            With xlapp.Selection.Border
                .ColorIndex = 57
                .Weight = xlThick
                .LineStyle = xlContinuous
            End With
            With xlapp.Selection
                .MarkerBackgroundColorIndex = xlNone
                .MarkerForegroundColorIndex = xlNone
                .MarkerStyle = xlNone
                .Smooth = False
                .MarkerSize = 3
                .Shadow = False
            End With
        Next i
    End If
set mychart = nothing

en fait par supprimer l'ancien graphe j'entend : set mychart =nothing.

ça serait un peu long d'afficher les 6, voila les 2 derniers. les 5 premiers n'ont jamais d'erreurs, c'est seulement le dernier qui me fait toujours une erreur.

16/01/2006, 15h52
ouskel'n'or

Déjà, si tu mettais de

Citation:

Set mychart = xlapp.Charts.Add

à

Citation:

Set mychart = Nothing

dans une procédure indépendante, avec Debut et le nom du graphe en paramètres, tu n'aurais à l'écrire qu'une fois.
Pour ces deux variables, tu pourrais faire un tableau
Ensuite, tu n'aurais qu'à faire une boucle sur le nbre de tableaux que tu veux créer, appeler la procédure avec Debut() et nom() indexés

Te réduirait par 6 le risque d'une erreur de code mal recopié.
Par exemple, pourquoi une fois

Citation:

For i = 3 To nbcol

et une fois

Citation:

For i = 3 To mychart.SeriesCollection.Count + 2

A part ça, je ne vois pas

A+