RESOLU - Ma legende ne correspond pas au graphique (nuage de point)

DELANNOY

XLDnaute Nouveau
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


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
 

DELANNOY

XLDnaute Nouveau
J'ai résolu mon problème si quelqu'un se retrouve face à la même chose voici ce que j'ai fait :

Au lieu d'initier mon graphique en nuage de point j'ai changé pour un graphique en bulle avec ce bout de code :

VB:
ActiveChart.ChartType = xlBubble

Ensuite j'ai mis toutes les bulles à la même taille avec ce code :

VB:
ActiveChart.SeriesCollection(j).Select
ActiveChart.ChartGroups(1).BubbleScale = 10
ActiveChart.ChartGroups(1).SizeRepresents = xlSizeIsWidth

Avec j le numéro de ma dernière série créée
 

Discussions similaires