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 :
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.
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
WendMon 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.