graphique par macro, erreur : l'objet va etre deconnecté

  • Initiateur de la discussion Initiateur de la discussion valou
  • 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 !

V

valou

Guest
bonjour,

Une nouvelle fois je m'en remet à vous concernant la création d'un graphique par macro.

Voici la procedure que j'ai cree pour pouvoir inserer dans une feuille un graphique.
Le problème est qu'elle declenche une erreur : 'erreur sur l'object, deconnection de l'object automation...' ou quelque chose comme ca.

L'un d'entre vous sait-il d'ou vient le problème, je ne dois manisfestement pas creer ce graphique comme il faut...

'permet de creer un graphique
Sub Creer_Graphique(feuille As String, prem_ligne As Integer, der_ligne As Integer, titre As String)

'variable
Dim Graph As ChartObject
Set Graph = Worksheets(feuille).ChartObjects.Add(600, 50, 650, 240)

'Worksheets(feuille).ChartObjects(1).Select
'Selection.Name = titre
With Graph.Chart
.ChartType = xlColumnClustered 'type de graphique : histogramme
.SetSourceData source:=Sheets(feuille).Range("D" & prem_ligne & ":E" & der_ligne), PlotBy:=xlColumns 'source
.Location Where:=xlLocationAsObject, Name:=feuille 'c'est un graphique mis dans une feuille
.HasLegend = False 'legende
.ApplyDataLabels Type:=xlDataLabelsShowNone, LegendKey:=False 'pas d'étiquettes
.HasDataTable = False 'pas de tableau des données
.HasTitle = True 'titre
.ChartTitle.Characters.Text = titre
End With


...
set graph = nothing

end sub
l'erreur se déclenche sur la ligne "Location"


Merci d'avance,
 
- 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

Réponses
5
Affichages
1 K
Réponses
6
Affichages
998
Retour