ajout: manipulation des données des séries

Bonjour à tous,

J'ai cherché à accéder aux données des séries de chaque graph pour la feuille en cours, j'ai donc écris au départ:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub réinitGraphs()   With Sheets(1) For Each obj In .ChartObjects With obj For Each serie In .SeriesCollection   Debug.Print serie.Name   Next serie End With Next obj   End With   End Sub

---

Puis j'ai réussi à le débugger en faisant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub réinitGraphs() With Sheets(1) For Each obj In .ChartObjects obj.Activate For Each serie In ActiveChart.SeriesCollection Debug.Print serie.Name Next serie Next obj End With End Sub

---

(Changements en rouge)

Je ne comprends pas pourquoi le premier ne fonctionne pas. Je ne vois pas vraiment la différence, d'un coté j'ai un with sur le graph en cours, et je tente d'accéder à ses séries, mais ça ne fonctionne pas, de l'autre j'active le graph en cours et accède à ses séries.

Voilou, si quelqu'un a une explication ça m'intéresse de savoir!

Merci

as tu essayé de simplement supprimer le with?
la boucle for each next n'active t elle pas l'object?

Coucou,

C'était bien ça,

en utilisant:

Code:

---

1 2 3 4 5 6 7 8 9 10

With Sheets(1) For Each obj In .ChartObjects For Each serie In ActiveChart.SeriesCollection   Debug.Print serie.Name   Next serie Next obj   End With

---

Ca fonctionne :) Merci

Un souci sur ce même sujet:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

For Each serie In ActiveChart.SeriesCollection Select Case obj.Index Case 1 serie.XValues = "=" & nom & "!R2C2:R2C14" serie.Values = "=" & nom & "!R3C2:R3C14" serie.Name = "=" & nom & "!R3C1" ...

---

J'ai une erreur: "impossible de définir la propriété values de la classe Series"

Si je fais un debug.Print serie.Name ça fonctionne, si je fais serie.Values par contre non.

Avez vous une idée?

J'ai cherché sur le forum, vu

Code:

---

1 2 3 4 5

with .SeriesCollection(1) .Name = "prévu" .Values = Range("B5:B12") .XValues = Range("A5:A12") end with

---

Qui à priori fonctionne mais pas pour moi :(

J'ai tenté comme ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

nom = ActiveSheet.Name   With Sheets(nom)   'on parcoure les graphs For Each obj In .ChartObjects     obj.Activate With obj .SeriesCollection(1).Values = Sheets(nom).Range("B2:B14") End With Next obj End With

---

Toujours sans succès, la même erreur "Erreur d'exécution '438': Propriété ou méthode non gérée par cet objet". Je ne comprends pas. :(

Edit: J'ai cherché pas mal sur différents forums, certains ont résolu le souci en faisant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

With Sheets(2) Dim Plage As Range, plageX As Range   Set plageX = .Range("A2") Set Plage = .Range("B2:B14") ActiveSheet.ChartObjects(1).Activate   ActiveChart.SeriesCollection(1).Name = plageX ActiveChart.SeriesCollection(1).XValues = Plage   End With

---

Mais toujours une erreur:

"Erreur d'exécution '1004': Impossible de définir la propriété Name de la classe Series."

Edit2:

Tenté juste de changer le nom d'une série, en nommant tout, en vérifiant les noms des graphs au cas où...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

With Sheets(2) Dim Plage As Range, plageX As Range   Set plageX = .Range("A2") Set Plage = .Range("B2:B14") For Each c In ActiveSheet.ChartObjects   Debug.Print c.Name   Next c ActiveSheet.ChartObjects("synthese").Activate ActiveChart.SeriesCollection(1).Name = "lol"   End With

---

J'ai donc "Impossible de définir la propriété Name de la classe Series."

Edit3 (:o):

J'ai généré un code avec un enregistrement de macro. CE CODE NE S'EXÉCUTE PAS NON PLUS. :o Erreur: "Impossible de définir la propriété Values de la classe Series"

Je commençais à me dire qu'il y avait vraiment un souci avec le code que j'écrivais, mais à priori non.

Donc le changement nom, valeur de séries fonctionne en manuel mais pas en vba.

Le code généré:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub omg() ' ' omg Macro ' Macro enregistrée le 27/07/2011 par Elodie '   ' ActiveSheet.ChartObjects("synthese").Activate ActiveChart.ChartArea.Select ActiveChart.SeriesCollection(1).Values = "=Feuil2!R7C2:R7C7" End Sub

---

Si quelqu'un a une idée je suis pas contre... :)

pas vraiment d'idée ( les graphique je ne les manipule que par fonction feuille)
mais essayes peut etre ça
n

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

om = ActiveSheet.Name   With Sheets(nom)   'on parcoure les graphs For Each obj In .ChartObjects     SeriesCollection(1).Values = Sheets(nom).Range("B2:B14")   Next obj End With

---

Coucou,

Merci de t'intéresser à mon problème.

Donc j'ai testé tel quel, erreur "Sub ou Function non définie" sur:

Code:

---

SeriesCollection(1).Values = Sheets(nom).Range("B2:B14")

---

J'ai testé:

Code:

---

.SeriesCollection(1).Values = Sheets(nom).Range("B2:B14")

---

Erreur: "Propriété ou méthode non gérée par cet objet"

Puis:

Code:

---

obj.SeriesCollection(1).Values = Sheets(nom).Range("B2:B14")

---

Erreur: "Propriété ou méthode non gérée par cet objet"

Puis:

Code:

---

ActiveChart.SeriesCollection(1).Values = Sheets(nom).Range("B2:B14")

---

Erreur: "Impossible de définir la propriété Values de la classe Series."

Du nouveau:

En fait, les valeurs des séries sont bien changées, mais j'ai tout de même l'erreur

"Erreur d'exécution '1004':
Impossible de définir la propriété Values de la classe Series."

Code utilisé:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub lol() nom = ActiveSheet.Name   With Sheets(nom)   'on parcoure les graphs For Each obj In .ChartObjects     ActiveChart.SeriesCollection(3).Values = Sheets(nom).Range("B2:B14")   Next obj End With End Sub

---

C'est bien que ça fonctionne, même si il y a une erreur, mais je ne peux pas m'en servir étant donné que dans ma "vraie" macro c'est une d'une dizaine de nom/valeur de série à changer, ça bloquera à la première.

Bref si ce fait peut faire avancer le schmilblick! ^^

Edit:

En changeant la plage, ça donne une nouvelle erreur:

"Variable objet ou variable de bloc With non définie"

sur:

Code:

---

ActiveChart.SeriesCollection(3).Values = plage

---

code de test utilisé:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub lol() Dim plage As Range Set plage = Sheets(2).Range(Cells(5, 2), Cells(5, 14)) With Sheets(2)   'on parcoure les graphs For Each obj In .ChartObjects     ActiveChart.SeriesCollection(3).Values = plage   Next obj End With End Sub

---

Fixed! :)

Ce code fonctionne:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

With Sheets(2)   'on parcoure les graphs For Each obj In .ChartObjects obj.Activate Select Case obj.Index Case 1 ActiveChart.SeriesCollection(1).Values = Sheets(2).Range("B5:N5") Case Else End Select Next obj End With

---

Ne me demandez pas pourquoi celui ci fonctionne et les autres non... ^^

Si ça peut servir à d'autres!