pb ac un graphique qui évolue

voici le code source

Dim i As Integer
Dim n As Integer
Dim cp As Integer
Dim h As Integer
n = InputBox("nb de lignes ?", "VBA", 91)
cp = InputBox("cp ?", "VBA", 0)
For i = 4 To n
h = Worksheets("p").Cells(i, 2)
If h = cp Then
Charts.Add
ActiveChart.ChartType = xl3DColumn
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "p!R2C3:R2C50"
ActiveChart.SeriesCollection(1).Values =( Worksheets("p").Cells(i, 6);Worksheets("p").Cells(i, 10),Worksheets("p").Cells(i,14),Worksheets("p").Ce lls(i,18),Worksheets("p").Cells(i, 22),Worksheets("p").Cells(i, 26),Worksheets("p").Cells(i, 30),Worksheets("p").Cells(i, 34),Worksheets("p").Cells(i, 38),Worksheets("p").Cells(i, 42),Worksheets("p").Cells(i, 46),Worksheets("p").Cells(i, 50))
ActiveChart.SeriesCollection(1).Name = "=p!R3C6"
ActiveChart.Location Where:=xlLocationAsObject, Name:="rotation du stock"
' Else
'MsgBox "erreur!! nous n'avons pu traité votre demande", vbInformation + vbOKOnly, "VBA"
End If
Next i

le pb se situe sur la définition de
ActiveChart.SeriesCollection(1).Values =( Worksheets("p").Cells(i, 6);Worksheets("p").Cells(i, 10) comment on peut le définir

Bonjour

Voici un premier élément de réponse........

Pascal

Hello !!!

On va devoir le dire combien de fois d'aller faire un tour sur la charte de "notre" forum !!!!!!!!

Soyez plus précis dans le titre, un tit Bonjour et Merci n'ont jamais tué personne non plus !!!!!!!!!!!!!!!!!!!!!!!!!!!

Y'en a marre mer.......

Bonne journée
Tchao

mdr Pascal, mess quasi simultanné ;-)