Ajouter puis se référer à SeriesCollection

Question

J'ai un code qui crée 2 nouvelles feuilles. Ensuite, il devrait tracer une nouvelle collection de séries à partir des nouvelles feuilles. J'ai réussi à faire cela avec ActiveSheet et etc, mais le nouveau SeriesCollection est dans le mauvais type de graphique. Je veux donner un nom de travail à la nouvelle création de la collection Uppon. Comment?

Dim ser As SeriesCollection 
Set ser = ch.chart.SeriesCollection.Add'---> ERROR HERE 

ser.Name = "='" & nshn & "_Table'!$H$2:$K$2" 
ser.XValues = "='" & nshn & "_Table'!$B$6:$B$38" 
ser.Values = "='" & nshn & "_Table'!$C$6:$C$38" 

Answer 1

Essayez ceci:

Dim ser As Series 
set ser = ch.chart.SeriesCollection.NewSeries 
'...