Incrementer l'axe horizontal d'un graphique
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:
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