Source de données de graphique

[fmris]

bonjour
je souhaite adapter la serie de données d'un graphique
j'ai cree le code suivant qui ne fonctionne pas !!

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Dim z
z = 184
    ActiveSheet.ChartObjects("Graphique 7").Activate
    ActiveChart.PlotArea.Select
    ActiveSheet.ChartObjects("Graphique 7").Activate
    While Cells(z, 7) <> ""   'tant que t est diff d'une cellule vide
                z = z + 1
            Wend    'sinon
   '*************************
    ActiveChart.SeriesCollection(1).XValues = Worksheets(2).Range(Cells(184, 7), Cells(z, 7)).Select
    ActiveChart.SeriesCollection(1).Values = Worksheets(2).Range(Cells(184, 10), Cells(z, 10)).Select
    Range("B146").Select

Je n'ai pas d'explications merci de votre aide

[Daniel.C]

Bonjour,

En supposant que "WorkSheets(2)" soit la feuille active :

Code :

1
2
3
4
5
6
7
8
9
Sub test()
Dim Plage As Range
'Réf.120107.xlsm
    With ActiveSheet.ChartObjects("Graphique 7").Chart.SeriesCollection(1)
        Set Plage = Range([G184], [G184].End(xlDown))
        .XValues = Plage
        .Values = Plage.Offset(, 3)
    End With
End Sub

[fmris]

J'ai inversé les lignes et colonnes
On part de GB7 à ....7 au lieu de G184
merci de me donner svp le nouveau code

[Daniel.C]

Si la plage des valeurs est décalée d'autant (à partir de GE7) :

Code :

1
2
3
4
5
6
7
8
9
Sub test()
Dim Plage As Range
'Réf.120107.xlsm
    With ActiveSheet.ChartObjects("Graphique 7").Chart.SeriesCollection(1)
        Set Plage = Range([GB7], [GB7].End(xlDown))
        .XValues = Plage
        .Values = Plage.Offset(, 3)
    End With
End Sub