problème avec graphique

[désespoirtotal]

Bonjour,

Je crée un graphique avec une macro, elle a bien fonctionné trois ou quatre fois,puis maintenant elle ne marche plus :

La voici :

Sub graphique()

titre = Sheets("Données suivi").Range("D17")
Données = Sheets(titre).Range("O5:S6")

Dim c As Excel.Chart, a As Worksheet, co As ChartObjects
Set a = Worksheets(titre)
Set co = a.ChartObjects
Set c = co.Add(30, 60, 300, 300).Chart
co.Select
c.ChartWizard PlotBy:=xlRows, Source:="Données", gallery:=3, Format:=7, Title:="pipo", categorylabels:=1

End Sub

Le message d'erreur est le suivant :

erreur 1004

La methode "chartWizard" de l'objet"_chart" a échoué.

Je ne sais pas ce qu'il ne va pas.

Merci

 

[WILFRIED]

SAlut et ne désespere pas p

Essaye :

titre = Sheets("Données suivi").Range("D17").value

Sinon est ce que tu renomme ton graphique ? si c'est le cas peut-être n'arrive t-il pas à le selectionner?

A+ Wilfried ;op

 

[désespoirtotal]

Bonjour,

j'ai essayé en rajoutant .value mais cela ne fonctionne pas.
j'ai supprimé l'instruction Title:="pipo" cela ne fonctionne pas quand même.

Je ne vois pas d'où cela peut venir.

bye

 

[jmps]

Bonjour désespoirtotal, Bonjour Wilfried,

Moi je comprends que Données est une variable, donc tu devrais supprimer les guillemets quand tu l'utilises avec le Wizard. Comme ça :

c.ChartWizard PlotBy:=xlRows, Source:=Données, gallery:=3, Format:=7, Title:="pipo", categorylabels:=1

Au passage, en ce qui me concerne, j'essaie d'éviter les accents dans les noms de variables. Je sais que ça marche quand même mais bon...

A+

José

 

[michel]

Bonjour Désespoirtotal Wilfried et José

j'ajouterai qu'il faut definir la plage de cellules

Set Donnees = Sheets(Titre).Range("O5:S6")


ci dessous une version qui fonctionne chez moi :

Sub graphique()
Dim Donnees As Range
Dim Titre As String
Dim c As Excel.Chart
Dim a As Worksheet
Dim co As ChartObjects

Titre = Sheets("Données suivi").Range("D17")
Set Donnees = Sheets(Titre).Range("O5:S6")
Set a = Worksheets(1)
Set co = a.ChartObjects
Set c = co.Add(30, 60, 300, 300).Chart

'Co.Select
c.ChartWizard PlotBy:=xlRows, Source:=Donnees, gallery:=3, Format:=7, Title:="pipo", categorylabels:=1

End Sub


tres bonne soiree
MichelXld

 

[michel]

rebonsoir

...oouuppss... j'ai fait une petite erreur de recopie
je voulais écrire :

Sub graphique()
Dim Donnees As Range
Dim Titre As String
Dim c As Excel.Chart
Dim a As Worksheet
Dim co As ChartObjects

Titre = Sheets("Données suivi").Range("D17")
Set Donnees = Sheets(Titre).Range("O5:S6")
Set a = Worksheets(Titre)
Set co = a.ChartObjects
Set c = co.Add(30, 60, 300, 300).Chart

'Co.Select
c.ChartWizard PlotBy:=xlRows, Source:=Donnees, gallery:=3, Format:=7, Title:="pipo", categorylabels:=1

End Sub



bonne soiree
MichelXld

 

[desespoirtotal]

Bonsoir,

Merci bcp à vous trois , ca marche impec.

Bonne soirée