[XL-2010] Ajouter 1 sur une ActiveChart.SeriesCollection [Résolu]

[yzf-r]

Salut,

Est-il possible d'incrémenter la serie d'un graphe "simplement"?
J'ai essayé bêtement +1 mais cela ne fonctionne pas

Code :

1
2
3
    ActiveSheet.ChartObjects("W-SSI-Chart0-1-c").Activate
    'ActiveChart.SeriesCollection(1).Values = "=$E$831:$E$833"
    ActiveChart.SeriesCollection(1).Values = ActiveChart.SeriesCollection(1).Values + 1

en gros, je voudrais via une macro passer à =$E$831:$E$834, puis =$E$831:$E$835

une idée?
par avance merci

[Daniel.C]

Bonjour,

Tu n'étais pas très loin :

Code :

1
2
3
4
5
6
ActiveSheet.ChartObjects("W-SSI-Chart0-1-c").Activate
Var = ActiveChart.SeriesCollection(1).Values
For i = 1 To UBound(Var)
    Var(i) = Var(i) + 1
Next i
ActiveChart.SeriesCollection(1).Values = Var

[yzf-r]

merci pour ta réponse,

cependant ce n'est pas tout à fait le résultat attendu.
En fait, cela augmente de 1 les valeurs de ma sélection, mais pas la taille de la sélection elle-même.
Or c'est augmenté la taille de la sélection qui intéresse.

Pour résumer:

ActiveChart.SeriesCollection(1).Values = "=$E$831:$E$832"
avec pour valeur ={9/13} par exemple

quand j'utilise ton code, l'étendu du champs reste la même mais les valeurs ont bougées ={10/14}

[Daniel.C]

C'est déjà plus compliqué. Le code suivant suppose que les données source sont en colonne. Pour un code plus universel (données en ligne ou en colonne, demande.) :

Code :

1
2
3
4
5
6
7
8
9
    ActiveSheet.ChartObjects("W-SSI-Chart0-1-c").Activate
    Dim Var As String, Tabl, Feuille As String
    ActiveSheet.ChartObjects("Graphique 1").Activate
    Var = ActiveChart.SeriesCollection(1).Formula
    Tabl = Split(Var, ",")
    Feuille = Left(Tabl(2), InStr(1, Tabl(2), "!") - 1)
    Tabl(2) = Feuille & "!" & Range(Tabl(2)).Resize(Range(Tabl(2)).Rows.Count + 1).Address
    Var = Join(Tabl, ",")
    ActiveChart.SeriesCollection(1).Formula = Var

[yzf-r]

Merci Daniel

Effectivement, c'est un peu plus compliqué mais ca fonctionne.
Encore merci