Disparition de série sur un graphique VBA
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 8O
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:
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 :zoubi: pour votre aide.
EDIT: petit détail le graphique est de type Radar.
