Bonjour à tous,
Je travaille actuellement sur une macro Excel qui a pour but la création automatique de graphique Selon plusieurs choix de l'utilisateur.
Pour un des choix je construit un graphique en "nuage de points". De base le type de point est attribué aléatoirement par Excel.
J'ai choisi de forcer le choix du point et la taille (15). La couleur des points est alors choisie aléatoirement (ce qui me va bien)
Mon problème est que ma légende ne suit pas la mise en forme des points que j'ai forcé....
Quelqu'un aurait une idée de pourquoi ? Et de comment résoudre cela ?
Voici le code de la construction du graphique (selon un tableau jusqu'à croiser une cellule vide)
Nom2 est une variable de qui correspond au nom de mon graphique
Je travaille actuellement sur une macro Excel qui a pour but la création automatique de graphique Selon plusieurs choix de l'utilisateur.
Pour un des choix je construit un graphique en "nuage de points". De base le type de point est attribué aléatoirement par Excel.
J'ai choisi de forcer le choix du point et la taille (15). La couleur des points est alors choisie aléatoirement (ce qui me va bien)
Mon problème est que ma légende ne suit pas la mise en forme des points que j'ai forcé....
Quelqu'un aurait une idée de pourquoi ? Et de comment résoudre cela ?
Voici le code de la construction du graphique (selon un tableau jusqu'à croiser une cellule vide)
Nom2 est une variable de qui correspond au nom de mon graphique
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).Select
ActiveChart.SeriesCollection(j).Points(1).Select
With Selection
.MarkerStyle = 8
.MarkerSize = 15
End With
i = i + 1
j = j + 1
Test = Worksheets(1).Range("C" & i).Value
Wend