[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 !
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas