Discussion :

[Darkthur]

Bonjour,

je tente de mettre au point un graphique permettant d'historiser des indicateurs pour des projets.

J'ai un probleme avec des instructions qui passent ou non, sans que j'arrive à comprenne ce qui peut amener ce refus.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sheets("Indicateurs d'accompagnement").ChartObjects("Graphique 5").Activate
ActiveChart.SeriesCollection(1).Values = "='Construction graph'!R" & Range("graph_precoOK").Row & "C" & ColDeb & ":R" & Range("graph_precoOK").Row & "C" & ColFin
'ActiveChart.SeriesCollection(1).Name = "=""Acceptées OK"""
ActiveChart.SeriesCollection(2).Values = "='Construction graph'!R" & Range("graph_precoretard").Row & "C" & ColDeb & ":R" & Range("graph_precoretard").Row & "C" & ColFin
'ActiveChart.SeriesCollection(2).Name = "=""Acceptées en retard"""
ActiveChart.SeriesCollection(3).Values = "='Construction graph'!R" & Range("graph_precoKO").Row & "C" & ColDeb & ":R" & Range("graph_precoKO").Row & "C" & ColFin
'ActiveChart.SeriesCollection(3).Name = "=""Acceptées KO"""
ActiveChart.SeriesCollection(4).Values = "='Construction graph'!R" & Range("graph_precoref").Row & "C" & ColDeb & ":R" & Range("graph_precoref").Row & "C" & ColFin
'ActiveChart.SeriesCollection(4).Name = "=""refusées"""
ActiveChart.SeriesCollection(5).Values = "='Construction graph'!R" & Range("graph_precoattente").Row & "C" & ColDeb & ":R" & Range("graph_precoattente").Row & "C" & ColFin
ActiveChart.SeriesCollection(5).Name = "=""en attente"""

Ces instructions ont deja fonctionner à plusieurs reprises, mais il arrive, aprés certaines modifications sur la feuille qu'elles m'affichent cette erreur :

"Impossible de définir la propriété values de la classe series."

Connaitriez vous la cause de ce probleme ?
Merci d'avance.

[mercatog]

ça marche quand Construction graph est la feuille active ici

Code :

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

Range("graph_precoOK").Row

Essaies comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Grf As ChartObject
Dim Sh As Worksheet
Dim ColDeb As Integer, ColFin As Integer
 
'..Définition de ColDeb et ColFin
Set Grf = Sheets("Indicateurs d'accompagnement").ChartObjects("Graphique 5")
Set Sh = Worksheets("Construction graph")
With Grf.Chart
    .SeriesCollection(1).Values = "='" & Sh.Name & "'!R" & Sh.Range("graph_precoOK").Row & "C" & ColDeb & ":R" & Sh.Range("graph_precoOK").Row & "C" & ColFin
    .SeriesCollection(1).Name = "Acceptées OK"
    '...la suite
End With
Set Sh = Nothing
Set Grf = Nothing

[Darkthur]

merci,
J'ai modifié, c'est effectivement bien plus propre comme ca

Par contre mon probleme demeure identique.

Existe t'il des raisons qui empechent de modifier l'attribut values ?

[mercatog]

Peux tu mettre un extrait de ton fichier en pièces jointes?

[Darkthur]

Je pense avoir localisé le probleme.

En fait excel refuse l'instruction uniquement pour le 1er enregistrement et le 2eme enregistrement, donc quand l'instruction donne une réponse de type

'construction graph!R2C3:R2C3 ou lorsque l'on doit la remplacer par la valeur suivante exemple ( 'construction graph!R2C3:R2C4 )

Les autres cas fonctionnent sans probleme.

Ce genre d'écriture est elle interdite ?

Dans ce cas, je pense qu'il me suffit de rajouter un if pour gerer ce cas précis.


Merci en tout cas