VBA - Boucle sur SeriesCollection
Bonjour à tous, je vais essayer d'être clair :
J'essaie d'alimenter un graphique de type courbe de façon automatique. Le graphique se situera sur l'onglet "4 - Nuage moyenne" et les données se situent sur l'onglet "1 - Calculs1", colonnes AH (= colonne 34) à colonne variable (selon la variable "DerPairs"). Les intitulés de colonnes sont sur la ligne 2 et les données vont de la ligne 3 à "DerniereLigne". Le but est donc de faire une boucle sur les données. Voici mon code jusqu'ici :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Sub Last_Graphiques2()
Dim DerniereLigne As Long
DerniereLigne = Worksheets("Import données").Range("A1048576").End(xlUp).Row
Dim DerPairs As Integer
DerPairs = Sheets("Import données").Range("P1048576").End(xlUp).Row
Dim i As Integer
Sheets("4 - Nuage moyenne").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.Parent.Name = "GraphAPair"
ActiveChart.ChartType = xlLine
For i = 1 To DerPairs + 5
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i) = Sheets("1 - Calculs1").Cells(2, i + 33)
ActiveChart.SeriesCollection(i).Values = Sheets("1 - Calculs1").Range(Cells(3, i + 33), Cells(DerniereLigne, i + 33))
ActiveSheet.Shapes("GraphAPair").ScaleWidth 1.2458333333, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("GraphAPair").ScaleHeight 1.44965296, msoFalse, _
msoScaleFromTopLeft
Next i
End Sub |
Pour l'instant, l'erreur générée est : Propriété ou méthode non gérée par cet objet. Sheets avec Cells, ça ne marche pas ?
Soyez indulgents :)
Merci pour votre aide,
Alexis