Discussion :

[Itori]

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 :

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
    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 :

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

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 :

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

.HasTitle = True

L'erreur est

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 :

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

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

Merci d'avance pour votre aide.

[SilkyRoad]

bonsoir

tu peux tester cette synthaxe

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
 
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 :

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

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

fonctionne bien chez moi (Excel2002)


bonne soiree
michel

[tinmarbusir]

Bonjour

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

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
 
'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 :

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

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??

[tinmarbusir]

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

Code :

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

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...

[Mabiche103]

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

Code :

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

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