Ajouter plusieurs séries de données à un graphique excel avec VBA

En supposant que j'ai mes données en lignes et je veux créer un graphique (x,y scatter).

date    1.1. 1.2. 1.3. 1.4 1.5
set1    12  36  12  23  33
set2    44  22  11  1   13
set3    54  5   56  56  34
set4    1   2   6   12  33

comment puis-je ajouter set1,set2 et set4 mais pas set3 à la carte sans avoir à les sélectionner individuellement l'un après l'autre?

Pour le x-plage (date), je peux faire

Dim xrange As Range
Set xrange = Application.InputBox("select x-range", "Get Range", Type:=8)

Mais en faisant de même pour les ensembles de données (sélection de plusieurs lignes) ne fonctionnera pas parce que chaque série dans un nuage de points nécessite un individu gamme

   ActiveChart.SeriesCollection(1).XValues = xrange
   ActiveChart.SeriesCollection(1).Values = "=Sheet1!$4:$4"

mais j'ai une sélection de plusieurs ensembles de données. J'aurais besoin d'une façon de diviser les tranches à partir de mon entrée de sélection de boîte(s) et les écrire dans la variable unique. Ensuite, je voudrais ajouter une nouvelle série pour chaque xrange + variable paire avec la méthode ci-dessus.

Est-il un wayto faire cela?

Un potentail réponse n'a pas besoin de s'en tenir à ce que j'ai posté ci-dessus, toutes les suggestions sont les bienvenues.

Vous devez utiliser .SeriesCollection.NewSeries. Voir ma réponse dans stackoverflow.com/questions/9778827/....

OriginalL'auteur Martin H | 2012-04-03

  1. 4

    Définir la source de la plage de données. Excel va automatiquement créer la série pour vous. Dans l'exemple ci-dessous j'ai Une colonne de X, colonne B Y1 et la colonne D comme Y2:

    ActiveChart.SetSourceData Source:=Range("A1:B4,D1:D4")
    Supprimer l'étiquette ("Date" dans ce cas) dans la cellule en haut les valeurs de X, à l'aide d'Excel reconnaître qu'elles sont les valeurs de X et pas un autre ensemble de valeurs de Y. C'est peut-être inutile si Excel les avis des formats de date dans la première colonne, mais il vaut mieux être sûr.

    OriginalL'auteur bouvierr