Discussion :

[bibi5883]

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 :

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

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.

[illight]

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 :

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

"='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

[bibi5883]

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 :

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

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.

[illight]

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

Code :

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

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

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