grandepapatte
XLDnaute Nouveau
Tout d'abord bonjour à tout le monde,
j'explique mon problème, j'ai fais un bouton qui a partir de 2 données me créé un graphique. Lorsque je clic sur ce bouton le graphique se créé, mais il me met une erreur qui est :"Erreur d'exécution 438 : Propriété ou méthode non géré par cet objet"
Voici le code :
Si vous pouvez m'aider à trouver la méthode ou propriété non géré, il me surligne toute cette partie.
Merci d'avance de votre aide précieuse
j'explique mon problème, j'ai fais un bouton qui a partir de 2 données me créé un graphique. Lorsque je clic sur ce bouton le graphique se créé, mais il me met une erreur qui est :"Erreur d'exécution 438 : Propriété ou méthode non géré par cet objet"
Voici le code :
Code:
Sub Bouton12_Clic()
'ne pas oublier d'ajouter la référence Microsoft Excel 8.0 Object Library au projet, sinon impossible de créer l'application Excell
Dim ch As ChartObject
'ch va recevoir le graphique
Set ch = Worksheets(1).ChartObjects.Add(200, 600, 345, 198) ' le graphique sera tracé dans la prémière feuille du classeur
'trace le graphe een prenant les données de la cellule F30 à la cellule G30
ch.Chart.SetSourceData Source:=Worksheets(1).Range("F30:G30"), PlotBy:=xlColumns
ch.ChartWizard Source:=ch, Gallery:=xl3DColumnStacked, Format:=4 _
, PlotBy:=xlColumns, CategoryLabels:="", SeriesLabels:="", _
HasLegend:="", Title:="Dépense et Revenu", CategoryTitle:="", _
ValueTitle:="", ExtraTitle:=""
End Sub
Si vous pouvez m'aider à trouver la méthode ou propriété non géré, il me surligne toute cette partie.
Code:
ch.ChartWizard Source:=ch, Gallery:=xl3DColumnStacked, Format:=4 _
, PlotBy:=xlColumns, CategoryLabels:="", SeriesLabels:="", _
HasLegend:="", Title:="Dépense et Revenu", CategoryTitle:="", _
ValueTitle:="", ExtraTitle:=""
Merci d'avance de votre aide précieuse