Discussion :

[beatlejuice]

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

[ouskel'n'or]

Dans cette ligne, tu mets true.

.Values = "=" & MaFeuille.Range(Cells(LigneDepart, 6), Cells(LigneArrivee, 6)).Address(False, True, xlA1, True)

Quand à xlA1, c'est le paramètre pas défaut.
Enfin, pour Address, essaie plutôt cette syntaxe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Address(RowAbsolute:=False, ColumnAbsolute:=False, ... etc)

[beatlejuice]

Merci pour ta réponse, mais le problème ne change pas avec la modification que tu proposes.

J'ai remarqué aussi que si je rajoute la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
ThisWorkbook.Charts("ForceTemps").Activate
    Set MaFeuille = ThisWorkbook.Worksheets("CoordNoeuds")
    Set MonGraphe = ThisWorkbook.Charts("ForceTemps")
...

L'erreur obtenue est :La méthode cells de l'objet _Global a échoué.

J'ai par ailleurs essayé de remplacer la ligne fautive par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Values = "=CoordNoeuds!F1:F10"

mais j'ai toujours l'erreur "Impossible de définir la propriété values" etc.

[ouskel'n'or]

Tu as essayé avec select

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Charts("ForceTemps").Select

Au moins pour voir s'il y a un changement Mais je ne comprends pas l'erreur que tu indiques avec le code que tu mets. Manque pas un bout ?
Tu dis

[ouskel'n'or]

PS - Je viens de trouver le code manquant
A la place de

Set MaSerie = MonGraphe.SeriesCollection(CompteurSeries)
With MaSerie
.Values = "=" & MaFeuille.Range(Cells(LigneDepart, 6) _
, Cells(LigneArrivee, 6)).Address(False, True, xlA1, True)

mets plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
With MonGraphe
    Set MaSerie = .SeriesCollection(CompteurSeries)
    With MaSerie
         .Values = "=" & MaFeuille.Range(Cells(LigneDepart, 6) _
        , Cells(LigneArrivee, 6)).Address(False, True, xlA1, True)
'....

Tu dis

[beatlejuice]

Non, hélas, j'ai toujours la même erreur, que ce soit avec le Select ou le With MonGraphe, with MaSerie.
Quel est le genre de code avant qui pourrait poser problème ? (car il y a du code avant mais je n'ai pas le sentiment que ce dernier puisse avoir une influence sur le code présenté)

[SilkyRoad]

bonjour

je n'ai pas testé ta procédure mais quelle est la valeur attribuée à la variable LigneNouveau ?

de plus le signe "divisé est erroné dans cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LigneArrivee = CompteurSeries * (LigneNouveau \ 5)

remplace \ par /


bon week end
michel