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