Graph à 2 series de données avec fct "indirect"

Graph à 2 series de données avec fct "indirect" - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 01-03-2005 à 10:01:48   

Reply

Marsh Posté le 01-03-2005 à 14:46:56    

oh les amis au secours je ne sais pas du tout comment faire, vais me faire virer si je n'y arrive pas :os

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed