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

Roland_M · 3 Mars 2019

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

job75 · 3 Mars 2019

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 · 4 Mars 2019

Bonsoir mon ami !

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

bonne nuit et au plaisir !

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

Roland_M

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

Discussions similaires