Graph à 2 series de données avec fct "indirect" - VB/VBA/VBS - Programmation
MarshPosté le 01-03-2005 à 10:01:48
Bonjour
je ne sait pas si c'est vraiment très très dur à faire mais en tout cas j'en ai marre de bloquer alors si qq'un peut m'aider...!!!!!
Voila j'ai un fonds d'investissement, avec ses performances quotidiennes sur 4 ans disons. J'ai aussi le meme type de données concernant son indice de reference, le S&P500. Le but est de créer une macro permettant: -de choisir la date de début et la date de fin de période; -et de lancer alors une macro traçant sur le meme graph, mais avec des echelles adaptées, les courbes des valeurs sur la periode selectionnée. J'ai reussi à programmer avec la fct adresse le tracé d'un seul graph en fct des dates entrées. Adresse me permet dd'analyser les coordonnées des cellules correspondant aux dates entrées, et me permet de définir directement la plage de données. Mais je n'arrive pas à intégrer une 2eme plage de données ds le code.
Voici le code que j'ai pour le moment, sachant que la 2eme plage de données à intégrer est de la forme "indirect AB15:indirect AB18".
Sub graphperfperso() ' ' graphperfperso Macro ' Macro enregistrée le 25/02/2005 par STAGE037 '
Marsh Posté le 01-03-2005 à 10:01:48
Bonjour
je ne sait pas si c'est vraiment très très dur à faire mais en tout cas j'en ai marre de bloquer alors si qq'un peut m'aider...!!!!!
Voila j'ai un fonds d'investissement, avec ses performances quotidiennes sur 4 ans disons. J'ai aussi le meme type de données concernant son indice de reference, le S&P500.
Le but est de créer une macro permettant:
-de choisir la date de début et la date de fin de période;
-et de lancer alors une macro traçant sur le meme graph, mais avec des echelles adaptées, les courbes des valeurs sur la periode selectionnée.
J'ai reussi à programmer avec la fct adresse le tracé d'un seul graph en fct des dates entrées. Adresse me permet dd'analyser les coordonnées des cellules correspondant aux dates entrées, et me permet de définir directement la plage de données. Mais je n'arrive pas à intégrer une 2eme plage de données ds le code.
Voici le code que j'ai pour le moment, sachant que la 2eme plage de données à intégrer est de la forme "indirect AB15:indirect AB18".
Sub graphperfperso()
'
' graphperfperso Macro
' Macro enregistrée le 25/02/2005 par STAGE037
'
'
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("fonds - historique VL" ).Range( _
"INDIRECT(Aa15):INDIRECT(AA18)" ), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:= _
"fonds - historique VL"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "perf fonds"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveWindow.Visible = False
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlMaximized
End Sub
d'autre part, quels codes entrer pour obtenir le graph sur une nouvelle page (ça je sais) mais en plein ecran??
merci!!!