Bonsoir!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
 
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.Location Where:=xlLocationAsNewSheet
 
For i = 1 To 5000
   x = Rnd
   y = Rnd
   ActiveChart.SeriesCollection(i).XValues = x
   ActiveChart.SeriesCollection(i).Values = y
Next i
Forcement a 256 ca bug...
Une idee pour contourner le probleme?
Je ne veux rien afficher dans des cellules Excel soit dit en passant.

Merci!