Discussion :

[poilou2607]

Bonjour,
j'ai un petit problème concernant la syntaxe de graphique sur vba.
En effet j'ai testé les deux codes suivants censés créer le même graphe, je ne comprend absolument pas ou est l'erreur de synthaxe:

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
 Sheets("données").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("D5:D280,G5:K280")
    ActiveChart.ChartType = xlStockVOHLC
    ActiveChart.SeriesCollection(1).Name = "=""Volume"""
    ActiveChart.SeriesCollection(1).Values = "='Alstom'!$K$5:$K$280"
    ActiveChart.SeriesCollection(2).Name = "=""Ouverture"""
    ActiveChart.SeriesCollection(2).Values = "='Alstom'!$G$5:$G$280"
    ActiveChart.SeriesCollection(3).Name = "=""Plus Bas"""
    ActiveChart.SeriesCollection(3).Values = "='Alstom'!$H$5:$H$280"
    ActiveChart.SeriesCollection(4).Name = "=""Plus Haut"""
    ActiveChart.SeriesCollection(4).Values = "='Alstom'!$I$5:$I$280"
    ActiveChart.SeriesCollection(5).Name = "=""Cloture"""
    ActiveChart.SeriesCollection(5).Values = "='Alstom'!$J$5:$J$280"
 
    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Evol Action"
    ActiveChart.ApplyLayout (1)
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartTitle.Select
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartTitle.Text = "Alstom"
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartArea.Select

et

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
 
    Charts.Add
    With ActiveChart
        .ChartType = xlStockVOHLC
        .SetSourceData Source:=Sheets("données").Range("D5:D280,G5:K280"), PlotBy:=xlColumns
        .Location Where:=xlLocationAsObject, Name:="données"
    End With
 
    ActiveChart.SeriesCollection(1).Name = "=""Volume"""
    ActiveChart.SeriesCollection(1).Values = "='Alstom'!$K$5:$K$280"
    ActiveChart.SeriesCollection(2).Name = "=""Ouverture"""
    ActiveChart.SeriesCollection(2).Values = "='Alstom'!$G$5:$G$280"
    ActiveChart.SeriesCollection(3).Name = "=""Plus Bas"""
    ActiveChart.SeriesCollection(3).Values = "='Alstom'!$H$5:$H$280"
    ActiveChart.SeriesCollection(4).Name = "=""Plus Haut"""
    ActiveChart.SeriesCollection(4).Values = "='Alstom'!$I$5:$I$280"
    ActiveChart.SeriesCollection(5).Name = "=""Cloture"""
    ActiveChart.SeriesCollection(5).Values = "='Alstom'!$J$5:$J$280"
 
    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Evol Action"
    ActiveChart.ApplyLayout (1)
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartTitle.Select
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartTitle.Text = "Alstom"
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartArea.Select

Systématiquement la ligne de création du graphe bugge : ActiveSheet.Shapes.AddChart.Select ou Charts.Add

Y aurait-il une écriture alternative qui fonctionnerait ?

Merci d'avance de vos réponses

[tremens]

Salut,

Je n'utilise pas Office 2007, mais = "=" ne me semble pas être la bonne forme d'écriture essaye :

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
 
 
    Charts.Add
    With ActiveChart
        .ChartType = xlStockVOHLC
        .SetSourceData Source:=Sheets("données").Range("D5:D280,G5:K280"), PlotBy:=xlColumns
        .Location Where:=xlLocationAsObject, Name:="données"
    End With
 
    ActiveChart.SeriesCollection(1).Name = "Volume"
    ActiveChart.SeriesCollection(1).Values = "'Alstom'!$K$5:$K$280"
    ActiveChart.SeriesCollection(2).Name = "Ouverture"
    ActiveChart.SeriesCollection(2).Values = "'Alstom'!$G$5:$G$280"
    ActiveChart.SeriesCollection(3).Name = "Plus Bas"
    ActiveChart.SeriesCollection(3).Values = "'Alstom'!$H$5:$H$280"
    ActiveChart.SeriesCollection(4).Name = "Plus Haut"
    ActiveChart.SeriesCollection(4).Values = "'Alstom'!$I$5:$I$280"
    ActiveChart.SeriesCollection(5).Name = "Cloture"
    ActiveChart.SeriesCollection(5).Values = "'Alstom'!$J$5:$J$280"
 
    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Evol Action"
    ActiveChart.ApplyLayout (1)
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartTitle.Select
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartTitle.Text = "Alstom"
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartArea.Select

Tremens

[poilou2607]

Merci tremens... mais malheureusement ca ne marche toujours pas ...!!!

[tremens]

Le problème peut aussi venir de ta plage de données qui me semble disjointe.

Code :

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

Range("D5:D280,G5:K280")

Pour ma part je déclare la plage de données pour un graphe toujours avant de créer le graphe.

Code :

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

1
2
3
With MaFeuille
 Set PlageDonnees = .Range("F13", MaFeuille.Cells(ligne, ncol))
 End With

Il me semble quand ta plage de données est disjointe, il faut utiliser object.areas ([index])
index = numéro de la plage au sein des différentes plages de l'objet.

Code :

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

1
2
3
4
5
6
Dim MaZone as Range
'union de plusieurs plages disjointes
set MaZone= Union (Range("D5:D280"), range("G5:K280"))
 
with MaZone
.areas(1).value= array("Volume", ("......"), ...)

Je suis débutant comme toi, mais je chercherai dans ce sens, sinon attends la confirmation par un expert du forum...

Si cela peut t'aider...il faut persévérer...

Tremens