Bonjour à tous,

Dans une de mes macros, j'ai besoin de créer un grand nombre de minigraphs.
Ces graphs doivent etre positionnés et dimensionnés.
Mais je n'arrive pas à placer/dimensionner car je butte :
.top ou autre ne fonctionne pas avec ActiveChart
Est ce que quelqu'un peut m'aider ?

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
Charts.Add
ActiveChart.Location _
    Where:=xlLocationAsObject, Name:="Bilan"
With ActiveChart
    .SetSourceData Range("B18:D20")
    .HasTitle = True
    .ChartType = xlColumnClustered
    .HasLegend = False
    .ApplyDataLabels Type:=xlDataLabelsShowValue
    .Axes(xlCategory).TickLabels.Orientation = xlHorizontal
    .ChartTitle.Font.Bold = True
    .ChartTitle.Font.Size = 12
    .PlotArea.Top = 0
    .PlotArea.Top = 20
    .PlotArea.Top = 100
    .PlotArea.Height = 300
    .Axes(xlValue).MaximumScale = 20
    '.Selection.Top = 200
    .ChartObjects.
    .Deselect
End With
Tant que j'y suis,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
.Axes(xlValue).MaximumScale = Automatic
me donne une échelle abérante. Pourquoi ?

Merci d'avance
PS : Les questions me semblent idiotes mais je n'ai rien droivé pouvant m'aider ds les forums ...