Bonjour à tous, je bute depuis un certain temps sur ce problème... Lors de l'exécution du code suivant, je reçois le message d'erreur 1004 "Impossible de définir la propriété Values de la classe Series" alors que dans le débogueur l'objet MonGraphe comporte bien la dite propriété dans le sous objet series.
Je tiens à préciser que le graphe en question (nuage de points) comporte déjà 5 séries (d'index 1 à 5) dont je veux modifier les valeurs.
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
Dim MonGraphe As Chart, MaSerie As Series, MaFeuille As Worksheet

Set MaFeuille = ThisWorkbook.Worksheets("CoordNoeuds")
Set MonGraphe = ThisWorkbook.Charts("ForceTemps")
LigneArrivee = 1
For CompteurSeries = 1 To 5
    LigneDepart = LigneArrivee + 1
    LigneArrivee = CompteurSeries * (LigneNouveau \ 5)
    Set MaSerie = MonGraphe.SeriesCollection(CompteurSeries)
    With MaSerie
         .Values = "=" & MaFeuille.Range(Cells(LigneDepart, 6), Cells(LigneArrivee, 6)).Address(False, True, xlA1, True)
         .XValues = "=" & MaFeuille.Range(Cells(LigneDepart, 5), Cells(LigneArrivee, 5)).Address(False, True, xlA1, True)
         .Name = "=" & CStr(Round(MaFeuille.Cells(LigneDepart, 7).Value)) & " - " & _
        CStr(Round(MaFeuille.Cells(LigneArrivee, 7).Value))
    End With
Next CompteurSeries
Merci d'avance pour votre aide