Source de données graphique type Plot en VBA - VB/VBA/VBS - Programmation
Marsh Posté le 19-07-2005 à 10:18:23
Je crois que ce probleme releve du defi, car je n'ai eu de reponse sur aucun forum, et les (n)infoman de mon entourage n'ont pas de solution n'ont plus ;-)
Marsh Posté le 19-07-2005 à 10:36:58
Salut conundrum002,
J'ai pas trop compris ta question !
Moi c'est pareil, moi j'ai posté un message mais personne ne sait me répondre!
Marsh Posté le 19-07-2005 à 10:59:31
En fait je desire afficher sur un meme graphique des courbes issues de critères differents (exemple comparer des prix selon l'origine du pays). Pour cela il me faut faire une selection des donnees qui m'interesse.
1) Le filtre n'est pas une solution car il n'apparait dans la zone graphique que les donnees visibles dans le tableur (-> il me faudrait autant de tables que de filtres ->explosion du fichier excel)
2) Filtre par programmation. Recuperation des donnees dans une matrice et affichage de ces donnees. La fonction ActiveChart.SeriesCollection(2).XValues accepte comme entree les matrices mais le nombre de donnees contenues dans cette matrice est limite, et c'est la mon probleme.
Existe t il une fonction de type PLOT comme sous matlab?
Ou qqn a t il une idee? Merci
Marsh Posté le 19-07-2005 à 09:02:31
Je voudrais realiser un graphique à partir de données contenues dans des cellules non contigues. Pour cela j'ai constitue une matrice qui me sert de source pour mes graphiques. Le probleme est que le nombre de donnees contenues dans Xvalues est limite. Que dois je faire, existe il une fonction type plot?
PS filtrer les donnees a partir du filtre excel n'est pas une solution, car je dois afficher des graphiques issus de filtres differents.
Merci d'avance
For i = 5 To Last_Data
If .Cells(i, 8) <> "" Then
If k = 0 Then
ReDim WestNorthSurface_Aera(0)
ReDim WestNorthUnitPrice_Surface(0)
Else
ReDim Preserve WestNorthSurface_Aera(UBound(WestNorthSurface_Aera) + 1)
ReDim Preserve WestNorthUnitPrice_Surface(UBound(WestNorthUnitPrice_Surface) + 1)
End If
WestNorthSurface_Aera(k) = .Cells(i, 8)
WestNorthUnitPrice_Surface(k) = .Cells(i, 30)
k = k + 1
End If
Next
Sheets("CS_Shell&Tubes" ).Select
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "=""CS Shell & Tubes"""
ActiveChart.SeriesCollection(2).XValues = WestNorthSurface_Aera
ActiveChart.SeriesCollection(2).Values = WestNorthUnitPrice_Surface
End With