Graphique code VBA

[Micke-31]

Bonsoir à tous,

Ci dessous une partie de mon code pour insérer un graphique dans une application.
tout marche bien sauf lorsque je sélectionne un graphique surface, bulles ou boursier, j'ai une erreur que je n'arrive pas à régler.
Je fais donc appel à vos lumières expertes en espérant trouver le bon code.
Dans cette attente merci et bonne soirée

Sub CopierGraph()
Dim rPlageDeDonnees As Range

Set rPlageDeDonnees = Application.InputBox("Saisissez la plage de données nécessaires au graphique", Type:=8)
Charts.Add
With ActiveChart
'Sélectionne le type de graphique
Var = Application.Dialogs(xlDialogChartType).Show
.SetSourceData Source:=rPlageDeDonnees, PlotBy:=xlDialogChartType
End With
End Sub


A+

 

[Micke-31]

Re : Graphique code VBA

Salut Catrice,

Nous revenons toujours au même point, soit j'utilise ton code
Application.Dialogs(xlDialogChartWizard)
et je me limite avec les graph boursier, ou je reviens à mon code initial
Application.Dialogs(xlDialogChartType) avec en amont de mon code, une boite de dialogue avec un exit sub ou une annulation, à moins que l'on réussisse à trouver la ligne de commande de l'assistant graphique proposé dans le menu.
En tous cas merci encore.

A+