Problème d'insertion de graphique

  • Initiateur de la discussion Initiateur de la discussion Pineurne
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

P

Pineurne

Guest
J'ai un problème lorsque j'insère automatiquement un graphique avec VBA.
J'ai testé une première chose qui fonctionne :
Code:
    Charts.Add
    ActiveChart.ChartType = xlColumnStacked
    ActiveChart.SetSourceData Source:=Workbooks("Affiche_graphe").Sheets("Feuil1").[B]Range("B29:Z" & temp)[/B], PlotBy _
        :=xlRows
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Graphes"
    With ActiveChart
        .HasAxis(xlCategory, xlPrimary) = True
        .HasAxis(xlValue, xlPrimary) = True
    End With
    ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic

Mon problème c'est que ma plage de données a un nombre de colonne variable. J'ai donc écrit :
Code:
Charts.Add
    ActiveChart.ChartType = xlColumnStacked
    ActiveChart.SetSourceData Source:=Workbooks("Affiche_graphe").Sheets("Feuil1").[B]Range(Cells(29, 2), Cells(32, temp))[/B], PlotBy _
        :=xlRows
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Graphes"
    With ActiveChart
        .HasAxis(xlCategory, xlPrimary) = True
        .HasAxis(xlValue, xlPrimary) = True
    End With    ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
temp c'est ma variable qui me met plus ou moins de colonnes. Le problème est que parfois j'ai une erreur 1004 "La méthode de 'Cells' de l'objet '_Global' a échoué. L'autre problème est que le graphe n'est pas rajouté dans mon onglet "Graphes", mais sur un autre onglet graphique, ce que je ne souhaite pas.
Quelqu'un peut-il m'aider ? J'espère que je m'exprime clairement

Merci d'avance
 
Dernière modification par un modérateur:
Re : Problème d'insertion de graphique

Pour éviter mon erreur 1004 la, j'ai fait ça

Code:
    selectiondonnees = Workbooks("Affiche_graphe").Sheets("Feuil1").Range(Cells(29, 2), Cells(32, i - 1)).Select
    
    Charts.Add
    ActiveChart.ChartType = xlColumnStacked
    ActiveChart.SetSourceData Source:=selectiondonnees, PlotBy _
        :=xlRows

Maintenant j'ai une erreur 424, mais le graphique que j'obtiens est bon. Mais toujous pas sur ma page "Graphes"
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

C
Réponses
4
Affichages
1 K
Carlich
C
R
Réponses
10
Affichages
5 K
Ricou969
R
L
Réponses
14
Affichages
2 K
L
O
Réponses
4
Affichages
2 K
othmane_007_007
O
C
Réponses
23
Affichages
4 K
Charles78
C
D
Réponses
3
Affichages
2 K
demonsares
D
D
  • Question Question
Réponses
1
Affichages
2 K
M
Réponses
9
Affichages
2 K
M
W
Réponses
3
Affichages
2 K
wolfloner
W
C
Réponses
4
Affichages
2 K
Cloud
C
G
Réponses
3
Affichages
1 K
guigui94
G
Retour