[VBA-E] Erreur d'exécution '1004'

Bonjour,

je voudrais pouvoir choisir ma plage de cellule en fonction de mon nombre de lignes lorsque je trace un camembert, mais il me fait une erreur du type

La méthode 'Range' de l'objet '_Global' a échoué

Voici mon programme:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub tracer_camembert() ' ' dessiner_camembert Macro ' Macro enregistrée le 13/03/2007 ' ' Charts.Add ActiveChart.ChartType = xlPie ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(1).XValues = Worksheets("Feuil1").Range(Cells(3, 7), Cells(23, 7)) ActiveChart.SeriesCollection(1).Values = "=Feuil1!R3C10:R23C10" ActiveChart.SeriesCollection(1).Name = "=Feuil1!R2C10" ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1" ActiveChart.HasLegend = False ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabel End Sub

---

La ligne qui me pose problème est en rouge, en effet en utilisant "=Feuil1!R3C7:R23C7", ca fonctionne, mais par la suite je voudrais faire varier les cellules automatiquement selon le nombre de lignes et de colonnes que j'aurais dans ma feuille de calcul.

Si quelqu'un sait résoudre mon problème Merci.

Personnellement pour modifier les graphiques, je gardais la meme écriture, mais je mettais des variables qui comptait le nombre de lignes :) car je crois pas que ce soit faisable d'une autre manière avec les R et C :)

Par exemple, quand je devais augmenter le slignes de mon graphique je faisait de cette manière :

Code:

---

"='TCD PPT'!R" & i - 9 & "C4:R" & i & "C4"

---

Où i était la dernière lignes de mes données qui devaient etre présentes dans mon graphique :)



De plus, dans ce que tu as écrit, je vois pas comment ton graphique variera puisque tu ciblera toujours la meme plage de cellules :? ou alors j'ai mal compris ton soucis :)

merci, j'ai utilisé ton code, mais voilà ce que ca me donne ca me donne comme erreur:

"Erreur de compilation :
Attendu : Fin d'instruction"

et voilà le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub tracer_camembert() ' ' dessiner_camembert Macro ' Macro enregistrée le 13/03/2007 ' ' i = 3 j = 23 Charts.Add ActiveChart.ChartType = xlPie ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R" &j& "C7:R" &i& "C7" ActiveChart.SeriesCollection(1).Values = "=Feuil1!R3C10:R23C10" ActiveChart.SeriesCollection(1).Name = "=Feuil1!R2C10" ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1" ActiveChart.HasLegend = False ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabel End Sub

---

où la ligne qui me pose pb est en rouge , i et j sont les valeurs qui changeront dans mon programme final.

Merci d'avance.

Je sais pas si c'est normal, mais normalement il y a des espace avant et après le j (ou le i) :

Code:

---

= "='Feuil1'!R" & j & "C7:R" & i & "C7"

---

De plus je viens de voir que tu as oublié les tites apostrophes (les ' ) pour entourer 'Feuil1' :)