Discussion :

[bapt298]

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 :

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

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.

[mercatog]

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

[jackborogar]

Essayes ce code:

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

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

[mercatog]

Par exemple

Code :

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

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