Graphique dynamique sous excel

Bonjour,

N'étant pas familier avec les graphiques, je viens vous demander de l'aide.
L'idée de mon programme est d'actualiser a partir d'une feuille excel une série de graphiques (chaque jour j'ajoute de nouvelles données, je suppose connu la derniere ligne temp). la premiere colonne represantant l'abscisse des graphiques, la colonne 2 l'axe des ordonnées du 1er graphique, la colonne 3 l'axe des ordonnées du 2e graphique etc...
voici un exemple que j'ai voulu tester mais qui ne fonctionne malheureusement pas.
temp represente ma derniere ligne
compt me sert a glisser d'un graphique au suivant.
les données se trouvent sur la feuil1 et les graphiques sur la feuil2

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Option Base 1 Sub test() Compt = 2 temp = 20 Worksheets("Feuil2").Activate For Each graph In ChartObjects graph.SeriesCollection(1).Values = Range(Worksheets("Feuil1").Cells(2, Compt), Worksheets("Feuil1").Cells(temp, Compt)) graph.SeriesCollection(1).XValues = Range(Worksheets("Feuil1").Cells(2, 1), Worksheets("Feuil1").Cells(temp, 1)) Compt = Compt + 1 Next End Sub

---

merci d'avance pour votre aide.

Lucas

merci pour le lien, malheureusement je crois pas avoir trouvé mon bonheur..

Code:

---

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

Option Base 1 Dim graph As ChartObject   Sub test() Compt = 2 temp = 20 Worksheets("Feuil2").Activate For Each graph In Sheets(2).ChartObjects Set graph = Sheets("Feuil2").ChartObjects(i) graph.SeriesCollection(1).Values = Range(Worksheets("Feuil1").Cells(2, Compt), Worksheets("Feuil1").Cells(temp, Compt)) graph.SeriesCollection(1).XValues = Range(Worksheets("Feuil1").Cells(2, 1), Worksheets("Feuil1").Cells(temp, 1)) Compt = Compt + 1 Next graph End Sub

---

j'ai légèrement modifié le code, mais fondamentalement je ne comprends pas ce qui bloque. Peut etre que ca vous sautera aux yeux

Lucas

As-tu une erreur ? Sur quelle ligne ? Bref, éclaire-nous qu'on n'ait pas à reproduire ton code pour voir ce qui se passe ;)

oui dsl, alors le msg d'erreur est:
erreur d'execution 9
l'indice n'appartient pas a la selection
et il me surligne la ligne Worksheets("Feuil2").activate

Option Base 1

Code:

---

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

Dim graph As ChartObject   Sub test() Compt = 2 temp = 20 Worksheets("Feuil2").Activate For Each graph In Sheets(2).ChartObjects graph.SeriesCollection(1).Values = Range(Worksheets("Feuil1").Cells(2, Compt), Worksheets("Feuil1").Cells(temp, Compt)) graph.SeriesCollection(1).XValues = Range(Worksheets("Feuil1").Cells(2, 1), Worksheets("Feuil1").Cells(temp, 1)) Compt = Compt + 1 Next graph End Sub

---

j'ai supprimer une ligne qui ne servait a rien

Ces deux lignes me gènent

Citation:

---

graph.SeriesCollection(1).Values = Range(Worksheets("Feuil1").Cells(2, Compt), Worksheets("Feuil1").Cells(temp, Compt))
graph.SeriesCollection(1).XValues = Range(Worksheets("Feuil1").Cells(2, 1), Worksheets("Feuil1").Cells(temp, 1))

---

Je mettrais déjà

Code:

---

graph.SeriesCollection(1).XValues = Sheets("Feuil1").Range(Cells(2, 1),Cells(temp, 1))

---

Tu dis

Nos messages se sont croisées.
Remplace

Citation:

---

Worksheets("Feuil2").activate

---

par

Code:

---

Feuil2.select 'ou activate - les deux devraient fonctionner (?)

---

Tu peux tester pour nous ?

Pense aux balises code ;)

Option Base 1

Code:

---

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

Dim graph As ChartObject   Sub test() Compt = 2 temp = 20 Sheets("Feuil2").Select For Each graph In Sheets(2).ChartObjects graph.SeriesCollection(1).Values = Sheets("Feuil1").Range(Cells(2, Compt), Cells(temp, Compt)) graph.SeriesCollection(1).XValues = Sheets("Feuil1").Range(Cells(2, 1), Cells(temp, 1)) Compt = Compt + 1 Next graph End Sub

---

apres execution, erreur 1004
erreur d"finie par l'application ou par l'objet
et il me surligne
graph.SeriesCollection(1).Values = Sheets("Feuil1").Range(Cells(2, Compt), Cells(temp, Compt))

Pense aux balises code, tu sélectionnes ton code + 1 clic sur #

Oui, il semble me souvenir (???) qu'il faut ajouter quelque chose...
Pendant que je vérifie, essaie ça :

Code:

---

1 2	graph.SeriesCollection(1).Values = Sheets("Feuil1").Range(Cells(2, Compt), _ Cells(temp, Compt)).address

---

Sans garantie, j'utilisais une variable "plage" pour le Range.
Tu regardes. Je jète un oeil de mon côté ;)

j'ai effectué le changement mais il maintient la meme erreur...

Voilà qui fonctionne

Code:

---

1 2 3 4 5

Dim Plage   Plage = Feuil1.Cells(1, 1).Address & ":" & Feuil1.Cells(12, 1).Address ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range(Plage), PlotBy _ :=xlColumns

---

Pas très orthodoxe mais c'est ok. On doit pouvoir simplifier. Je ne comprends pas pourquoi d'autres syntaxes plus mieux sioux ne sont pas acceptées :( On attendra bbil ou silkyRoad sur ce coup là :mouarf:

je t'avoue commencer à etre depassé par cette syntaxe, est ce que tu pourrais me remettre le code complet apres modification stp? dans ta modification est ce que tu prends en compte la modification des deux plages, colonnes 1 en abscisse et colonne compt dynamique pour chaque graph

Ok, je reprends ton code

Code:

---

1 2 3 4 5 6 7 8 9

Dim Plage ' (variant) Sheets("Feuil2").Select For Each graph In Sheets(2).ChartObjects Plage = Cells(2, compt).Address & ":" & Feuil1.Cells(temp, Compt).Address graph.SeriesCollection(1).Values = Sheets("Feuil1").Range(Plage) Plage = Cells(2, 1).Address & ":" & Feuil1.Cells(temp, 1).Address graph.SeriesCollection(1).XValues = Sheets("Feuil1").Range(Plage) Compt = Compt + 1 Next graph

---

Tu dis

extra, il fallait encore rajouter Chart. entre graph et seriescollection et ca tourne c extra !! merci pour ta patience, tu m'as bien aidé!

reste plus qu'a transferer tout ca convenablement dans le vrai programme mais ca devrait etre bon cette fois!

merci encore