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 : Sélectionner tout - Visualiser dans une fenêtre à part
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