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