Pb macro+graphique

[sébastien]

Bonjour à tous

Voilà mon problème, je dois creer des graphiques par macro.
J ai utilisé l enregistreur de macro dans un nouveau classeur pour generer un graphique.Tout fonctionne tres bien!Mais dès que je ramene cette macro dans un autre classeur elle ne fonctionne pas :-(

Voilà le code

i = 9
ActiveWindow.Visible = False
Windows("creation graph par macro.xls").Activate
Sheets("Feuil1").Select
Sheets.Add.Name = Sheets("feuil1").Range("A" & i)
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("A1")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R6C2:R6C121"
ActiveChart.SeriesCollection(1).Values = "=Feuil1!R9C2:R9C121"
ActiveChart.SeriesCollection(1).Name = "=Feuil1!R9C1"
ActiveChart.SeriesCollection(2).Values = "=Feuil1!R10C2:R10C121"
ActiveChart.SeriesCollection(2).Name = "=Feuil1!R10C1"
ActiveChart.Location Where:=xlLocationAsObject, Name:=Sheets("feuil1").Range("A" & i)
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With

End Sub


J ai bien entendu changer les appels avec le nouveau nom de fichier et le nom de la feuille avec les données

L erreur est 1004, : impossible de definir la propriete Xvalues de la classe series.

Je ne comprends pas pourquoi ca fonctionne dans un classeur et pas dans un autre!!

Aidez moi svp

Sébastien

 

[Creepy]

Hello

J'ai deja rencontré ce problème.

J'avais copiez/collez le code, et ca ne marchait pas.

En faites dans mon nouveau graph je n'avais pas inséré de source de données.

J'ai donc fait clique droit sur mon graph > Données sources.

Là je vais dans l'onglet "Serie". J'ajoute une série(Série1)
et je mets :
- nom : rien
- Valeur des X : rien
- Valeur des Y : ={1}

Je valide, je sauvegarde le document tel quel, et voila ca marche !!

En esperant que cela t'aide, note que toi tu as deux séries.

++

Creepy

 

[sébastien]

Salut Creepy

Je te remercie pour ta reponse, j ai trouve une autre solution

code :
'Données sources pour la serie1
ActiveChart.SeriesCollection(1).Values = (Sheets("Capacité actuelle").Range("B" & i & "😀Q" & i))
ActiveChart.SeriesCollection(1).Name = (Sheets("Capacité actuelle").Range("A" & i))
ActiveChart.SeriesCollection(1).ChartType = xlColumnClustered


Voilà j utilise la variable i mais ca marche avec des coordonnées fixe


MErci

a+


Seb