Discussion :

[Grom1]

Bonjour,

Je cherche a faire une macro qui ajoute une colonne a mon graphique. Je m'explique, si j'ai Stock_098!$C$15:$X$15 je veux ensuite Stock_098!$C$15:$Y$15. J'ai essayer de chercher, mais je ne trouve pas, donc je me permet de vous demander votre aide.

J'ai creer ce qui est dessous. J'ai mis les questions en gras.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim texte As String
Dim colonne As String
Dim Ncolonne As String

Worksheets("Stock_098").ChartObjects("Graphique 1").Activate

' identifier colonne
texte = ActiveChart.SeriesCollection(1).Values (apparement le resultat n'est pas sous forme de texte)
colonne = Mid(texte, 19, 1)

'changer colonne
Ncolonne = colonnne  (je sais pas comment faire un +1 sur une lettre)    

'Ecrire la valeur dans le grapique
ActiveChart.SeriesCollection(1).Values = Worksheets("Stock_098").Range("C15", j & "15")

Je débute en Vba et je vous remercie d'avance

Romain

[mercatog]

Tu peux faire un graphique dynamique en nommant dynamiquement tes plages de données et sans vba.

Je nomme la plage des abscisses X par la formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DECALER(Stock_098!$B$15;;1;;NBVAL(Stock_098!$15:$15)-2)

Je nomme la plage des ordonnées Y par la formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DECALER(Stock_098!X;1;0)

Je crée mon graphique avec comme abscisses et ordonnées les noms définis ci-haut

[78chris]

Bonjour

...
Ncolonne = colonnne (je sais pas comment faire un +1 sur une lettre)

Utilise la notation cells(y,x) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(cells(15,3),cells(15,10))

ou 10, qui correspond à J, peut être colonne connue +1


Edit : coucou Mercatog. 100% d'accord.

En plus sur 2010 on peut aussi dans nombre de cas on peut orienter la source dans l'autre sens, la mettre sous forme de tableau et le graphique suivra naturellement l'évolution du tableau source.

[Grom1]

Bonjour,

Merci de vos réponse, mais je n'y arrive pas. J'ai essayer pendant 2h. Je vous joint le fichier. Je ne voit pas ou coller les formules.
Classeur1.xlsx
Merci d'avance

Romain

[mercatog]

Regarde les noms comment sont défini et regarde ensuite la définition des séries

Fichier

[Grom1]

Bonjour,

C'est super, merci infiniment,

Cordialement,

Romain

[78chris]

Bonjour

Sur la base du fichier de Mercatog, l'autre solution par tableau (comme évoquée en fin du #3) : on peut filtrer telles ou telles semaines, et le graphique suit, de même que l'ajout de dates.