P
pierre
Guest
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
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