Nouvelles series de donnees qui suppriment les anciennes

Fermé
demaina - 29 juin 2017 à 10:01
Bonjour,

J'ai cree un graphique que j'aimerais metre a jour automatiquement.

Sheets("main").Activate

ActiveSheet.ChartObjects("Chart 2").Activate
Set ch = ActiveSheet.ChartObjects("Chart 2").Chart

While ch.SeriesCollection.Count > 0
ActiveChart.SeriesCollection(1).Delete
Wend

Sheets("main").ChartObjects(1).Chart.ChartArea.ClearContents

ch.SeriesCollection.NewSeries
MsgBox ActiveChart.SeriesCollection.Count
ActiveChart.SeriesCollection(1).Name = "start date"
ActiveChart.SeriesCollection(1).Values = "=Extraction!$AP$2:$AP$637"

ch.SeriesCollection.NewSeries
MsgBox ActiveChart.SeriesCollection.Count
ActiveChart.SeriesCollection(2).Name = "days"
ActiveChart.SeriesCollection(2).Values = ""=Extraction!$P$2:$P$637"


Et j'ai le meme code pour 6 series de donnes. Le probleme est que la msgbox montre que parfois le nombre de series de donnees decroit... Ou alors la nouvelle serie s'apelle "serie 46" alors que les anciennes series sont censees etre supprimees au depart. On ne les voit plus mais le nombre dans le nom s'incremente...

Avez vous une idee du bug ?