Résolu - Problème de généraion de graphique en VBA

DELANNOY

XLDnaute Nouveau
Bonjour à tous,


Je travaille sur un fichier qui génère des graphique à partir d'un tableau.

EN gros mon code se positionne sur la première ligne, créé une série, récupère la valeur de la cellule en dessous et si ce n'est pas vide recommence. Voici ce bout de code :

VB:
While Test <> ""



    ActiveSheet.ChartObjects(Nom2).Activate
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(j).Name = "='Template construit'!$C$" & i
   
    ActiveChart.SeriesCollection(j).XValues = "='Template construit'!$" & y & "$" & i

    ActiveChart.SeriesCollection(j).Values = "='Template construit'!$W$" & i
   
    ActiveChart.SeriesCollection(j).BubbleSizes = "={5}"
   
    If Z = 1 Then
    ActiveChart.SeriesCollection(j).Select
    ActiveChart.SeriesCollection(j).Points(1).Select
    With Selection
        .MarkerStyle = 8
        .MarkerSize = 15
    End With
    Else
    ActiveChart.SeriesCollection(j).BubbleSizes = "='Template construit'!$X$" & i
    End If
   
    i = i + 1
    j = j + 1
    Test = Worksheets(1).Range("C" & i).Value
Wend


Mon soucis est que la plupart du temps tout est OK et parfois d'autres séries vides se créent (serie21, serie 22 ...)

Quelqu'un aurait une solution ou une explication ?

Eventuellement une méthode pour supprimer automatiquement toutes les séries vides ?


Merci d'avance.
 

DELANNOY

XLDnaute Nouveau
Si quelqu'un a le même soucis je crois que je l'ai résolu.

J'ai remarqué que selon la cellule sélectionné avant de lancer la macro (via un bouton pour moi) les séries vident apparaissaient ou non, portant parfois comme nom la valeur de la (ou des) cellule(s) sélectionnées.

J'ai donc déterminé une cellule sur laquelle il n'y avais pas de soucis et au début de ma macro je sélectionne cette cellule avant toute autre action.

Et paf ! Je n'ai plus les séries "fantômes" :)
 

Discussions similaires

Statistiques des forums

Discussions
297 960
Messages
1 964 647
Membres
200 629
dernier inscrit
sylvain_grosjean