pb ac un graphique qui évolue

[pierre]

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").Cells(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

 

[Pascal76]

Bonjour

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

Pascal

 

[Lapou]

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

 

[Lapou]

mdr Pascal, mess quasi simultanné ;-)