Discussion :

[abandbe]

Bonjour,

Je suis complétement novice en macro excel.
Je vous demande votre aide pour créer une commande afin d'ajouter automatiquement des séries à un graphique.
Je compte créer un graphique avec au moins cent séries différentes. Existe-t-il un moyen de les créer automatiquement dans le graphique?

Je vous joins un exemple du tableau de données comprenant seulement deux séries.


BRY 0 25 1 26 2 27 3 28
JAM 0 28 2 35 4 150 5 42

Pour la première série, je souhaite que
- elle soit nommée par le contenu de A1
- les abscisses soient B1;D1;F1;H1
- les ordonnées soient C1;E1;G1,I1

Et ainsi de suite pour les autres séries.

J'espère que je suis clair.

Je vous remercie pour votre aide.

[bifconsult]

Bonjour,


Voici un bout de code que j'ai utilisé pour updater un graphique. Il y a certainement plus optimal encore, mais il tourne...
Nom du Graphique = "chart"
Nom de la feuille de données = "data"
X et Y = coordonnées de la cellule du titre pour la courbe (X = le rang, Y = la colonne ... 1 = A, 2=B, ...)
dstart et dend : rang du début des données et rang de fin des données
(1) = courbe 1, (2) pour courbe 2...

Code :

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

1
2
3
4
 
ActiveSheet.ChartObjects("chart").Activate
ActiveChart.SeriesCollection(1).Name = "=data!R" & X & "C" & Y
ActiveChart.SeriesCollection(1).Values = "=data!R" & dstart & "C" & Y & ":R" & dend & "C" & Y

[Daniel.C]

Bonjour,

100 séries ? bonjour la clarté... Pour un graphique déjà créé et des séries en nuages de points :

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
16
17
18
19
20
21
22
Sub AjoutSeries()
    Dim c As Range, s As Series, ValX As Range, ValY As Range
    Dim Dico As Object
    Set Dico = CreateObject("scripting.Dictionary")
    With ActiveSheet.ChartObjects(1).Chart
        For Each c In Range([A3], Cells(Rows.Count, 1).End(xlUp))
            Set s = .SeriesCollection.NewSeries
            s.Name = c.Value
            s.Type = xlXYScatter
            Set ValY = Cells(c.Row, 3)
            For i = 5 To Cells(c.Row, Columns.Count).End(xlToLeft).Column Step 2
                Set ValY = Union(ValY, Cells(c.Row, i))
            Next i
            Set ValX = Cells(c.Row, 2)
            For i = 4 To Cells(c.Row, Columns.Count).End(xlToLeft).Column - 1 Step 2
                Set ValX = Union(ValX, Cells(c.Row, i))
            Next i
            s.XValues = ValX
            s.Values = ValY
        Next c
    End With
End Sub

[abandbe]

Merci à tous les deux pour vos réponses très rapides.
Je vais utiliser le deuxième code qui correspond parfaitement à ce que je voulais faire.

Bonne journée et encore merci.