Discussion :

[Invité]

Bonjour à tous,

je viens solliciter votre connaissance afin de remédier à un léger problème, j'ai conçu une macro qui me permet, à partir d'un tableau de données de créer un graphique (une première pour moi). Le programme "tourne" très bien avec avec Office 2016, en revanche sur Office 2007, j'ai un message d'erreur du type :
Erreur d'execution '-2147417848(80010108)
La méthode 'Add' de l'objet "ChartObjects" a échoué

Le code est relativement simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub CreateChart()
Range("C4:J4,L4:M4,C5:J5,L5:M5").Select
myrange = Selection.Address
mysheetname = ActiveSheet.Name
ActiveSheet.ChartObjects.Add(125, 60, 210, 100).Select
ActiveChart.ChartWizard _
       Source:=Sheets(mysheetname).Range(myrange), _
       Gallery:=xlLine, Format:=4, PlotBy:=xlRows, _
       CategoryLabels:=1, SeriesLabels:=1, HasLegend:=0, _
       Title:="Mon titre"
ActiveChart.ChartType = xlRadarFilled
End Sub

Si jamais vous avez des pistes pour résoudre ce problème en m'expliquant ce qui "cloche" je suis preneur !

En vous souhaitant une bonne journée,

Cordialement

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.ChartObjects.Add(125, 60, 210, 100).Select

fonctionne bien avec Excel 2007.

Peux-tu mettre un classeur en PJ ?

[Invité]

bonjour,
regarde ce lien si ça te donne des idées!
http://www.developpez.net/forums/d15...f/#post8364420

[Invité]

Le fichier exemple en pièce jointe :

Tableau.xlsm

Je regarde le lien proposé merci !

[Invité]

Bonjour,

[Invité]

Merci beaucoup de ces infos !

J'ai un peu modifié le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub CreateChart()
Myrange = Range("C4:J4,L4:M4,C5:J5,L5:M5").Address
mysheetname = ActiveSheet.Name
ActiveSheet.ChartObjects.Add(125, 60, 210, 100).Select
ActiveChart.ChartWizard _
       Source:=Sheets(mysheetname).Range(Myrange), _
       Gallery:=xlLine, Format:=4, PlotBy:=xlRows, _
       CategoryLabels:=1, SeriesLabels:=1, HasLegend:=0, _
       Title:="Mon titre"
ActiveChart.ChartType = xlRadarFilled
End Sub

J'ai enlevé une ligne inutile ?! Mais en tout état de cause, cela fonctionne à merveille.

Je vous remercie d'avoir pris quelques minutes afin de m'indiquer ce qui "clochait" !

En vous souhaitant une bonne journée,

Cordialement