Fixer les couleurs d'un graphique macro/VBA

Bonjour à vous,

Voici mon soucis, je souhaite créer un graphique à partir d'un tableau croisé dynamique avec des couleurs "fixées" pour la dernière et l'avant-dernière semaine. En fait j'ai créé une macro qui réalise un tableau croisé dynamique , puis un graphique à partir de données qui changent toutes les semaines. L'idée est que la dernière semaine soit affichée toujours en jaune et celle d'avant toujours en rouge. Ma macro fonctionne avec les données de la semaine 17, mais lorsque j'utilise une nouvelle feuille (avec des données de la semaine 19) c'est toujours la semaine 17 qui sera en jaune et la semaine 16 qui sera en rouge (alors que cela devraient être respectivement la semaine 19 et 18).

L'idée est de n'afficher que les 12 dernières semaines à chaque fois.

J'espère que mon problème est bien expliqué ^^'

Je joins mon fichier excel pour que ce soit plus clair, vous pouvez lancer la macro direct (il y a quelques commentaires dans le code de la macro qui montrent où est le problème)

Merci d'avance à ceux qui pourront m'aider,

Bonne soirée

Bonjour,

Il faut aller chercher le nombre de séries :

   With ActiveChart

        NbSeries = .FullSeriesCollection.Count
        With .FullSeriesCollection(NbSeries)
             With .Format.Fill
                  .Visible = msoTrue
                  .ForeColor.RGB = RGB(255, 255, 0)
                  .Transparency = 0
                  .Solid
             End With
             With .Format.Line
                  .Visible = msoTrue
                  .ForeColor.RGB = RGB(255, 0, 0)
                  .Transparency = 0
                  .Weight = 3
             End With
         End With

        With .FullSeriesCollection(NbSeries - 1)
             With .Format.Fill
                  .Visible = msoTrue
                  .ForeColor.RGB = RGB(255, 0, 0)
                  .Transparency = 0
                  .Solid
             End With
        End With
    End With
 

Merci Beaucoup! Mon problème est résolu.