Discussion :

[isma616]

Bonjour,

Tout est dans le titre mais pour être plus précis, je n'arrive à afficher que 2 série sur un graphique si je rajoute une troisième série je me retrouve à perdre la première qui ne s'affiche plus sur le graphique
Je ne comprend vraiment pas comment elle disparait alors même qu'elle existe toujours si je regarde les valeurs du graphique(source des données).

Voici le code VBA qui génère les séries.

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
    'Vide les ancienne séries du graphique
    Graph1.Select
    Do Until ActiveChart.SeriesCollection.Count = 0
       ActiveChart.SeriesCollection(1).Delete
    Loop
 
 
    'Rajoute les nouvelles séries
 
    Graph1.SetSourceData Source:=Sheets("Data").Range("GraphBase")
    Graph1.SeriesCollection(1).Name = Sheets("Data").Range("B5").Value 'Titre de la série de la selection
    Graph1.SeriesCollection(2).Name = Sheets("Data").Range("C5").Value 'Titre de la série Minimale
 
    If (Sheets("Data").Range("DrawAverage").Value = "Oui") Then
        Graph1.SeriesCollection.Add "=Data!D1:D4"
        Graph1.SeriesCollection(2).Name = Sheets("Data").Range("D5").Value 'Titre de la série Minimale
    End If

Merci d'avance pour votre aide.

EDIT: petit détail le graphique est de type Radar.

[isma616]

1000 excuses il y avait une superposition des résultats.

Tout marche parfaitement