Discussion :

[didyvine]

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 :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
  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 !

[Pierrot93]

Bonjour Didyvine

regarde le code ci-dessous s'il peut t'aider :

Code :

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

1
2
3
4
5
6
Dim c As ChartObject
Set c = ActiveSheet.ChartObjects(1)
With c.Chart
    .HasTitle = True
    .ChartTitle.Characters.Text = Cells(1, 2)
End With

bonne journée
@+