2eme plage de données graphique exel
tobec
-
Utilisateur anonyme -
Utilisateur anonyme -
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.
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.
A voir également:
- 2eme plage de données graphique exel
- Fuite données maif - Guide
- Changer de carte graphique - Guide
- 2eme ecran pc - Guide
- Supprimer les données de navigation - Guide
- Trier des données excel - Guide
1 réponse
Bonjour,
Voici un exemple type :
Lupin
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
