[RESOLU] problème pour définir une plage dans un graphique

Roland_M

XLDnaute Barbatruc
Bien le bonsoir à tous,

j'ai un problème pour incorporer une plage de données dans un graphique existant !
j'ai effectué qq recherches sur le net je n'ai rien trouvé de concluant !

quand je me sert de l'enregistreur de macro j'obtient ceci:
ActiveSheet.ChartObjects("GraphDefauts").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Formula = "=SERIE(;ImportDefauts!$F$5:$F$15;ImportDefauts!$G$5:$G$15;1)"

mais bizarrement quand je m'en sert dans une macro j'ai un erreur sur la ligne:
ActiveChart.SeriesCollection(1).Formula . . .

pourriez-vous éclairer ma lanterne ?

mon but serait de redéfinir le champ par exp comme ceci
R1$="$F$5:$F$30"
R2$="$G$5:$G$30"
ActiveChart.SeriesCollection(1).Formula = "=SERIE(;ImportDefauts!" & R1$ & ";ImportDefauts!" & R2$ & ";1)"

si vous pouviez m'arranger cela ce serait fort sympa ! je ne suis pas doué pour les graph

un grand merci à tous ceux qui pourront m'aider !

EDIT:
pour l'instant je m'en sort avec ceci:
ActiveChart.SetSourceData Source:=Range("'ImportDefauts'!$F$5:$G$15")

mais j'aimerais comprendre !?
 
Dernière édition:

job75

XLDnaute Barbatruc
Bonsoir Roland,
VB:
Sub MAJ_Graph()
Dim R1$, R2$
R1 = "$F$5:$F$30"
R2 = "$G$5:$G$30"
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
    .XValues = "=ImportDefauts!" & R1
    .Values = "=ImportDefauts!" & R2
End With
End Sub
Bonne nuit.
 

Roland_M

XLDnaute Barbatruc
Bonsoir mon ami !

ça fonctionne très bien ! un grand merci à toi, je ne pouvais guère tomber mieux !

bonne nuit et au plaisir !
 

Discussions similaires


Haut Bas