Discussion :

[Zaboudou]

Bonjour à tous,

navré, je suis sûr que le problème a déjà été réglé mais j'ai un problème avec une macro pour créer une nouvelle courbe dans un graphique ...

Si toutes les courbes du graphiques sont activées/cochées dans "sélection de données", tout va bien; par contre si d'anciennes courbes sont décochées (masquées), rien ne va plus, la macro ne sait pas lire la "réelle dernière" courbe.
comment trouver le numéro de l'ActiveChart.SeriesCollection.NewSeries ?? j'imagine que c'est mon compteur iimp qui déconne....

ou bien... y aurait il un moyen de provisoirement réactiver toutes les courbes ? et éventuellement n'en afficher que les X premières et Y dernières ?

Je vous remercie par avance de toute aide possible

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
      Worksheets("Graphs").Activate
        For i = 1 To 4
            Worksheets("Graphs").Activate
           ActiveSheet.ChartObjects(i).Activate
           ActiveChart.SeriesCollection.NewSeries
           iimp = ActiveChart.SeriesCollection.Count
           If i = 1 Then
               ActiveChart.FullSeriesCollection(iimp).XValues = "='Données'!$AH$" & Nblignes - a + 8 & ":$AH$" & Nblignes - 8
               ActiveChart.FullSeriesCollection(iimp).Values = "='Données'!$AF$" & Nblignes - a + 8 & ":$AF$" & Nblignes - 8
              ActiveChart.FullSeriesCollection(iimp).Name = "='Données'!$B$" & Nblignes - a + 4 & ":$M$" & Nblignes - a + 4
              ActiveChart.FullSeriesCollection(iimp).Format.Fill.Visible = msoFalse
              ActiveChart.FullSeriesCollection(iimp).MarkerStyle = 9
               ActiveChart.FullSeriesCollection(iimp).MarkerSize = 7
               ActiveChart.FullSeriesCollection(iimp).Format.Line.ForeColor.RGB = Sheets("Infos").Range("G1").Interior.Color

               ElseIf i = 2 Then ....... bla bla bla

[Zaboudou]

je suis vraiment stupide .... j'appelle le bon objet après mais pas dans le compteur iimp

Code :

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

iimp = ActiveChart.FullSeriesCollection.Count

désolé pour le dérangement