Bonjour à tous,
J'ai effectué une recherche sur le forum, mais aucun des problèmes qui se rapprochaient du mien n'a pu réellement m'aider. Je vous explique donc mon problème : je veux tracer un graphe grâce à VBA, qui me le créera dans une nouvelle feuille (ça pas de problème je sais le faire), le problème vient de la longueur de mes séries. En effet le tableau dans lequel le graphe vient piocher les valeurs de X et Y, peut varier et comporte 10 valeurs comme 500. Donc le code utilisé pour mon graphe précédemment créé est celui là, donc très basique :
Mais comment lui donner une longueur aléatoire? J'ai bien essayé de créer un cellule où j'indique le nombre de valeur à prendre en compte pour mes séries mais il n'accepte pas cet méthode :
Est ce que quelqu'un pourrait m'aider? Je pense pas que ça soit très compliqué mais je ne sais pas comment l'écrire exactement
Merci d'avance
J'ai effectué une recherche sur le forum, mais aucun des problèmes qui se rapprochaient du mien n'a pu réellement m'aider. Je vous explique donc mon problème : je veux tracer un graphe grâce à VBA, qui me le créera dans une nouvelle feuille (ça pas de problème je sais le faire), le problème vient de la longueur de mes séries. En effet le tableau dans lequel le graphe vient piocher les valeurs de X et Y, peut varier et comporte 10 valeurs comme 500. Donc le code utilisé pour mon graphe précédemment créé est celui là, donc très basique :
Code:
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Condensation!$A$6:$A$12"
ActiveChart.SeriesCollection(1).Values = "=Condensation!$L$6:$L$12"
ActiveChart.SeriesCollection(1).Name = "=Condensation!$L$4"
Mais comment lui donner une longueur aléatoire? J'ai bien essayé de créer un cellule où j'indique le nombre de valeur à prendre en compte pour mes séries mais il n'accepte pas cet méthode :
Code:
'Dim z As Integer
'z = Sheets("Condensation").Cells(2, 7).Value
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Condensation!$A$6:$A$6+z"
ActiveChart.SeriesCollection(1).Values = "=Condensation!$L$6:$L$6+z"
ActiveChart.SeriesCollection(1).Name = "=Condensation!$L$4"
Est ce que quelqu'un pourrait m'aider? Je pense pas que ça soit très compliqué mais je ne sais pas comment l'écrire exactement
Merci d'avance