Graphique sur vba

Version imprimable

Graphique sur vba

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:

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

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
 
    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

Salut,

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

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
 
 
    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

21/03/2010, 16h00
poilou2607

Merci tremens... mais malheureusement ca ne marche toujours pas ...!!!
21/03/2010, 16h38
tremens
Le problème peut aussi venir de ta plage de données qui me semble disjointe.

Code:

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:

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:

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 ;)