[VBA-E] Graphique et position

Version imprimable

Bonjour,

Désireux de faire un graphique à l'aide d'une macro vba, et ne sachant comment faire, j'ai fait un enregistrement afin de trouver les différents critères correspondant. J'obtiens donc le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Range("A4:C8").Select Range("C8").Activate Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheets("Passé").Range("A4:C8"), PlotBy:= _ xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="Passé" With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = _ "Données historiques en croissance géométrique" .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False End With ActiveChart.HasLegend = True ActiveChart.Legend.Position = xlBottom
Après étude et modification j'obtiens ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Charts.Add With ActiveChart .ChartType = xlColumnClustered .SetSourceData Source:=Sheets("Passé").Range(Sheets("Passé").Cells(1, 4), Sheets("Passé").Cells(ligne, colonne)), PlotBy:= _ xlColumns .Location Where:=xlLocationAsObject, Name:="Passé" .HasTitle = True .ChartTitle.Characters.Text = "Données historiques en croissance " & Sheets("Passé").Cells(2, 1).Value .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False .HasLegend = True .Legend.Position = xlBottom End With
Cependant ce code me renvoi une erreur au moment de l'exécution de

Code:

.HasTitle = True

L'erreur est

Citation:

Erreur d'exécution '-2147221080 (800401a8)': Erreur Automation

Pourriez vous me dire quelle est l'erreur car je ne comprend pas vraiment :?

Enfin pour finir je souhaite mettre ce graphique à une place bien particulière, j'ai trouver ce code en recherchant dans les sujets déjà posté mais je n'ai pas réussi a l'utiliser.
Code:

1 2 3 ActiveSheet.ChartObjects(1).Left = Range("E5").Left ActiveSheet.ChartObjects(1).Top = Range("E5").Top
Merci d'avance pour votre aide.

bonsoir

tu peux tester cette synthaxe

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Charts.Add
    With ActiveChart
        .ChartType = xlColumnClustered
        .SetSourceData Source:=Sheets("Passé").Range(Sheets("Passé").Cells(1, 4), _
        Sheets("Passé").Cells(ligne, colonne)), PlotBy:=xlColumns
        .Location Where:=xlLocationAsObject, Name:="Passé"
    End With
 
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Données historiques en croissance " & _
        Sheets("Passé").Cells(2, 1).Value
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
        .HasLegend = True
        .Legend.Position = xlBottom
    End With

sinon

Code:

1
2
ActiveSheet.ChartObjects(1).Left = Range("E5").Left
ActiveSheet.ChartObjects(1).Top = Range("E5").Top

fonctionne bien chez moi (Excel2002)

bonne soiree
michel

Bonjour

Je suis moi aussi en plein projet de création de graphique
Code:

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 'Je crèe le graphique Dim ObjChart As Chart Set ObjChart = Workbooks(nomWBK).Charts.Add '... '...J'ajoute mes séries Set ObjxRange = Feuille.Range( _ Feuille.Cells(2, CX), _ Feuille.Cells(nbVille + 1, CX)) For i = 1 To 5 Do While Feuille.Cells(ligne, CReg) = Feuille.Cells(ligne2 + 1, CReg) ligne2 = ligne2 + 1 Loop Set ObjyRange = Feuille.Range( _ Feuille.Cells(ligne, cY), _ Feuille.Cells(ligne2, cY)) With ObjChart.SeriesCollection(i) .Values = ObjyRange .XValues = ObjxRange .Name = Feuille.Cells(ligne, CReg) .MarkerStyle = i End With ligne = ligne2 + 1 ligne2 = ligne2 + 1 Next i
C'est après cette ligne que tout s'emballe
Code:

1 2 ObjChart.Location Where:=xlLocationAsObject, Name:=Feuille.Name
je veux réutiliser objchart pour modifier des proriétés,mais j'ai moi aussi une erreur automation,
je suis obligé de placer cette ligne en dernier, savez vous pourquoi ?
Je voudrai bien pouvoir modifier la taille des formes et leur police(légendes, zones de textes...)...
comment faire??

31/05/2006, 12h49
tinmarbusir

j'ai trouve la reponse à ma question
il faut refaire un

Code:

set objchart=Feuille.ChartObjects(1).chart

pour éviter l'erreur automation

j'ai trouve la syntaxe des formes et les polices grâce à l'enregistreur de macro...

Pour ceux qui est du deplacement du graphique tu peux également faire:
Code:

1 2 3 4 5 6 'Ton graphe porte le nom de "toto" With ActiveSheet.Shapes("toto") .Left = Range("D1").Left .Top = Range("D1").Top End With
Et voila