G
guillaume07
Guest
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
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