Discussion :

[HoneySlice]

Bonjour/Bonsoir,

Bon désolé de vous déranger mais après plusieurs heures de recherche pour réussir à faire ce que je veux, je me retourne vers vous qui aurez peut-être la solution.

Alors voilà mon problème :

Je cherche à créer un graphique avec plusieurs lignes à partir d'une liste de valeur que j'ai dans UNE SEULE COLONNE ... Le problème étant donc de sélectionner au travers d'une boucle ces valeurs et d'en faire une nouvelle série de mon graphique.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Range(Worksheets(Feuil1).Cells(2, num_col), Worksheets(Feuil1).Cells(15, num_col))
    ActiveChart.SeriesCollection(1).Select
    For a = 2 To m

        ActiveChart.PlotArea.Select
        ActiveChart.SeriesCollection.NewSeries
        ActiveChart.SeriesCollection(a).Values = "=Feuil1!$BF$16:$BF$28"

La partie en rouge est donc celle que je souhaite modifier avec mes variables.

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

[HoneySlice]

Bonjour/Bonsoir

Bon ben je me réponds toute seule puisqu'en tripatouilant j'ai trouvé ma solution.

Je la poste ici, on ne sais jamais si ça peut servir à quelqu'un.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Range(Worksheets(Feuil1).Cells(2, num_col), Worksheets(Feuil1).Cells(15, num_col))
    ActiveChart.SeriesCollection(1).Select
 
    For a = 2 To m
        ActiveChart.PlotArea.Select
        ActiveChart.SeriesCollection.NewSeries
        ActiveChart.SeriesCollection(a).Values = Range(Worksheets(Feuil1).Cells(f + 1, num_col), Worksheets(Feuil1).Cells(f + 14, num_col))
        f = f + 14
    Next