VBA - Graphiques

Version imprimable

VBA - Graphiques

Bonjour,

J'ai aujourd'hui rencontré un problème à l'exécution de l'un de mes programmes alors qu'il fonctionnait très bien auparavant.

En fait, j'ajoute un graphique, puis je le renomme juste après en faisant cela :
Code:

1 2 3 4 5 6 7 8 Sheets("Compte_rendu").Shapes.AddChart.Select ActiveChart.ChartType = xlColumnStacked With ActiveChart .Parent.Name = "graphique" & i .HasTitle = True .ChartTitle.Characters.Text = Mid(Sheets("Graphique_bilan_mois").Cells(1, i), 3) End With
Le problème survient sur le premier ActiveChart, on détécte une erreur du type '91'. En fait, le débugger drt qu'il n'y a aucun objet sélectionné... et je ne vois pas comment je pourrais le sélectionner "autrement".
Peut être qu'il est possible de lui donner un nom dès sa création mais je ne trouve pas comment. Si quelqu'un a une petite idée la dessus...

Baptiste.

26/07/2012, 12h39
mercatog

Tu veux créer une feuille graphique ou un graphique incorporé à ta feuille?

Essayes ce code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
With Sheets("Compte_rendu")  
 
Set g = Sheets("Compte_rendu").ChartObjects(1)       
g.Activate
 
        With ActiveChart
 
                    .ChartType = xlColumnStacked
 
                    .Parent.Name = "graphique" & i
                    .HasTitle = True
                    .ChartTitle.Characters.Text = Mid(Sheets("Graphique_bilan_mois").Cells(1, i), 3)
            End With
End With

26/07/2012, 13h00
bapt298

Non, ca fait exactement la même chose, il me dit que g est "vide"... c'est vraiment bizarre, parce que le seul problème évident que je voyais dans mon code, c'était que je n'étais pas "certain" de travailler sur ma feuille "Compte_rendu", mais ton code ne posais plus ce problème...

Sinon, il s'agit d'inclure des graphiques dans une feuille déjà existante.

Merci pour vos réponses.

Par exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub TestObjetGraphique()
Dim Ch As ChartObject
 
Set Ch = Worksheets("Compte_rendu").ChartObjects.Add(100, 50, 300, 200)
With Ch.Chart
    .ChartType = xlColumnStacked
    .SetSourceData Worksheets("Compte_rendu").Range("A1:B25") ' à adapter
    .HasTitle = True
    .ChartTitle.Characters.Text = Mid(Sheets("Graphique_bilan_mois").Cells(1, i), 3)
End With
Set Ch = Nothing
End Sub