titre variable pour un graph

titre variable pour un graph - VB/VBA/VBS - Programmation

Marsh Posté le 03-08-2009 à 20:58:38    

Bonjour,  
Mes problèmes de réorganisation de graphiques sont résolus. Toutefois je n’arrive toujours pas à créer le graphique adapté. Je passe par l’enregistreur macro : Voici mon code :
 
            Charts.Add
    ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
        "Courbe - Histo. 2 axes"
    ActiveChart.SetSourceData Source:=objrange, PlotBy:= _
        xlColumns
    ActiveChart.Location Where:=xlLocationAsNewSheet
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "g"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Temps"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Valeur/PV"
         
       
  ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
        "Courbe - Histo. 2 axes"
     
   End With
 
       
 
    With ActiveChart.Axes(xlCategory)
        .HasMajorGridlines = False
        .HasMinorGridlines = False
    End With
    With ActiveChart.Axes(xlValue)
        .HasMajorGridlines = True
        .HasMinorGridlines = False
    End With
   
         
     
     
 
     
    ActiveChart.Axes(xlValue, xlSecondary).Select
    ActiveChart.ChartArea.Select
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = Feuil3.cells(1, 2)
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "temps"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "vb/pv"
        .Axes(xlValue, xlSecondary).HasTitle = True
        .Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = "cours/pru"
    End With
    ActiveChart.HasLegend = False
    ActiveWindow.Visible = False
 
Ce que je voudrais:
Axe des abscisses: “temps”
Premier axe Y : « Valeur boursière/ Plus values »
Deuxième axe Y  « Cours/ Prix d’achat »
En ce qui est du titre du graphique : il sera variable, il faudra qu’il soit égal au contenu de la cellule(1,2). Est-ce possible ? La bonne exécution de mon programme ne dépend plus que de çà.
 
Merci d’avance !

Reply

Marsh Posté le 03-08-2009 à 20:58:38   

Reply

Sujets relatifs:

Leave a Replay

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