VBA générer un graphique

[guillaume07]

Bonjout,

Je ne comprend pas pourquoi ce bout de code ne marche pas :
Dim Graph As Chart Dim NouvSerie, NouvSerie2 As Series
With ActiveWorkbook.Worksheets('Graphiques_stock')
Set Graph = .ChartObjects(1).Chart
Set NouvSerie = Graph.SeriesCollection.NewSeries
NouvSerie.XValues = .Range('=data!B11:B' & 11 + nbVilles - 1)
NouvSerie.Values = .Range('=data!C55:C' & 55 + nbVilles - 1)
NouvSerie.Name = 'Nombre de plans'
Set NouvSerie2 = Graph.SeriesCollection.NewSeries
NouvSerie2.Values = .Range('=data!D55😀' & 55 + nbVilles - 1)
NouvSerie2.Name = 'Nombre de plans à 0'
End With

'nbVilles = 14 passé en paramètre à la sub 'contenant le code ci dessus

Merci d'avance

 

[guillaume07]

Bonjour,

Je ne comprend pas pourquoi ce bout de code ne marche pas :

Dim Graph As Chart
Dim NouvSerie, NouvSerie2 As Series

With ActiveWorkbook.Worksheets('Graphiques_stock')
Set Graph = .ChartObjects(1).Chart
Set NouvSerie = Graph.SeriesCollection.NewSeries
NouvSerie.XValues = .Range('=data!B11:B' & 11 + nbVilles - 1)
NouvSerie.Values = .Range('=data!C55:C' & 55 + nbVilles - 1)
NouvSerie.Name = 'Nombre de plans'
Set NouvSerie2 = Graph.SeriesCollection.NewSeries
NouvSerie2.Values = .Range('=data!D55😀' & 55 + nbVilles - 1)
NouvSerie2.Name = 'Nombre de plans à 0'
End With

'nbVilles = 14 passé en paramètre à la Sub 'contenant le code ci dessus

Merci d'avance

 

[MichelXld]

bonsoir Guillaume

tu peux tester cette adaptation

Dim Graph As Chart
Dim NouvSerie As Series, NouvSerie2 As Series

With ActiveWorkbook.Worksheets('Graphiques_stock')
Set Graph = .ChartObjects(1).Chart
Set NouvSerie = Graph.SeriesCollection.NewSeries
NouvSerie.XValues = Sheets('data').Range('B11:B' & 11 + nbVilles - 1)
NouvSerie.Values = Sheets('data').Range('C55:C' & 55 + nbVilles - 1)
NouvSerie.Name = 'Nombre de plans'
Set NouvSerie2 = Graph.SeriesCollection.NewSeries
NouvSerie2.Values = Sheets('data').Range('D55😀' & 55 + nbVilles - 1)
NouvSerie2.Name = 'Nombre de plans à 0'
End With


bonne soirée
MichelXld