Discussion :

[kalu]

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 :

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

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

[kalu]

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

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
 
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

[ouskel'n'or]

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

[kalu]

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 :

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

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

[ouskel'n'or]

Ces deux lignes me gènent

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 :

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

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

Tu dis

[ouskel'n'or]

Nos messages se sont croisées.
Remplace

Worksheets("Feuil2").activate

par

Code :

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

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

Tu peux tester pour nous ?

Pense aux balises code

[kalu]

Option Base 1

Code :

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

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 #

[ouskel'n'or]

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

Code :

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

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é

[kalu]

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

[ouskel'n'or]

Voilà qui fonctionne

Code :

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

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à

[kalu]

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

[ouskel'n'or]

Ok, je reprends ton code

Code :

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

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

[kalu]

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