2eme plage de données graphique exel

Question

Bonjour,

Voila, je veux créer un graphique a partir d'une fonction


voila ce que j'ai écrit :

Sub graph_jour()


Dim graph As Chart
Set graph = Charts.Add
With graph
.SetSourceData Source:=Worksheets(2).Range("C1:C8"), PlotBy:=xlColumns
.ChartType = xlLineMarkers
.HasTitle = True
.ChartTitle.Text = Worksheets(1).Range("D3")
.Name = Worksheets(1).Range("D3")
End With

End Sub

cela fonctionne mais j'aimerai ajouter une deuxième plage de données qui se placerait en abscisse sur mon graphique. je n'arrive pas a trouver la synthaxe a ajouter au .setsourcedata qui convient pour cela

Merci a vous.

Utilisateur anonyme · Answer

Bonjour,

Voici un exemple type :


Option Explicit
'

Sub CreerGraphique()

    Dim rngCible As Range, strChaine As String
    
    Sheets("Graph1").Select
    ActiveChart.ChartArea.Select
    
    ' Nom de la collection 1
    Set rngCible = Sheets("Feuil1").Range("A2")
    ActiveChart.SeriesCollection(1).Name = rngCible
    
    ' Valeur de la collection 1
    strChaine = "B3:K3"
    Set rngCible = Sheets("Feuil1").Range(strChaine)
    ActiveChart.SeriesCollection(1).Values = rngCible
    
    ' Abscisse de la collection 1
    Set rngCible = Sheets("Feuil1").Range("B1:K1")
    ActiveChart.SeriesCollection(1).XValues = rngCible
    
    ' Nom de la collection 2
    strChaine = "A3"
    Set rngCible = Sheets("Feuil1").Range(strChaine)
    ActiveChart.SeriesCollection(2).Name = rngCible
    
    ' Valeur de la collection 2
    strChaine = "B4:K4"
    Set rngCible = Sheets("Feuil1").Range(strChaine)
    ActiveChart.SeriesCollection(2).Values = rngCible
    
    ' Abscisse de la collection 2
    Set rngCible = Sheets("Feuil1").Range("B1:K1")
    ActiveChart.SeriesCollection(2).XValues = rngCible
    
    Sheets("Feuil1").Activate
    Range("A1").Select
    
End Sub
'


Lupin

2eme plage de données graphique exel

1 réponse

Discussions similaires

Newsletters