Chères amies, chers amis du forum

Grâce à l'enregistreur de macro j'ai pu déterminer les paramètre de ma zone plot area de mon graphe. Je les 'ai ensuite integrer dans ma sub mais rien à faire, j'ai toujours droit à une présentation aléatoire.

J'ai essayé de mettre mon bout de code à plusieurs endroit car je pense qu'Excel reconfigure automatiquement le graph, mais impossible de fixer mes parametre (il se trouve a l'intérieur d'une structure With ActiveChart)

voici le bout de code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
.PlotArea.Height = 627
        .PlotArea.Width = 505
        .PlotArea.Left = 19
        .PlotArea.Top = 36
et voici le code pour mon graph:

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
51
52
53
54
55
56
57
58
59
60
61
62
63
With ActiveChart
 
        .HasTitle = True
        .Axes(xlCategory).HasTitle = True
        .Axes(xlValue).HasTitle = True
 
        .PlotArea.Interior.ColorIndex = 2
        .PlotArea.Border.LineStyle = xlNone
 
        color = 51
 
   'ici se trouve l'initialisation des .series.collection
 
        .ChartTitle.Font.Name = "Arial Narrow"
        .ChartTitle.Font.Size = 15
        .ChartTitle.Font.Bold = True
        .ChartTitle.Font.Italic = True
        .ChartTitle.Left = .ChartArea.Left
 
        .Axes(xlCategory).AxisTitle.Characters.Text = "Dates"
        .Axes(xlCategory).AxisTitle.Font.Name = "Arial Narrow"
        .Axes(xlCategory).AxisTitle.Font.Size = 10
        .Axes(xlCategory).AxisTitle.Font.Bold = True
        .Axes(xlCategory).AxisTitle.Font.Italic = True
 
        .Axes(xlValue).AxisTitle.Font.Name = "Arial Narrow"
        .Axes(xlValue).AxisTitle.Font.Size = 10
        .Axes(xlValue).AxisTitle.Font.Bold = True
        .Axes(xlValue).AxisTitle.Font.Italic = True
 
        .Axes(xlValue).HasMajorGridlines = True
        .Axes(xlCategory).HasMajorGridlines = True
        .Axes(xlValue).MajorGridlines.Border.LineStyle = xlDot
        .Axes(xlCategory).MajorGridlines.Border.LineStyle = xlDot
 
        .Axes(xlValue).TickLabels.Font.Name = "Arial Narrow"
        .Axes(xlValue).TickLabels.Font.Size = 7
 
        .Axes(xlCategory).TickLabels.Font.Name = "Arial Narrow"
        .Axes(xlCategory).TickLabels.Font.Size = 7
        .Axes(xlCategory).TickLabels.NumberFormat = "d/m/yy;@"
 
        .Axes(xlValue).MinimumScaleIsAuto = True
        .Axes(xlValue).MaximumScaleIsAuto = True
 
        .Axes(xlValue, xlPrimary).AxisTitle.Font.Name = "Arial Narrow"
        .Axes(xlValue, xlPrimary).TickLabels.Font.Name = "Arial Narrow"
        .Axes(xlValue, xlPrimary).TickLabels.Font.Size = 7
        .Axes(xlValue, xlPrimary).AxisTitle.Font.Size = 10
        .Axes(xlValue, xlPrimary).AxisTitle.Font.Bold = True
        .Axes(xlValue, xlPrimary).AxisTitle.Font.Italic = True
 
        .Legend.Font.Name = "Arial Narrow"
        .Legend.Font.Size = 5
        .Legend.Border.LineStyle = xlNone
        .Legend.Position = xlLegendPositionBottom
 
        .PlotArea.Height = 627
        .PlotArea.Width = 505
        .PlotArea.Left = 19
        .PlotArea.Top = 36
 
    End With
Y a-t-il un moyen de fixer définitivement mes paramètre

Merci

NB: bizarrement pas à pas le code s'effectue correctement