bonjour
je souhaite adapter la serie de données d'un graphique
j'ai cree le code suivant qui ne fonctionne pas !!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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