F
Fab
Guest
Bonjour,
Je souhaiterais qu'une macro réalise un graphique à partir de valeurs fixes pour les x (0, 1, 2, 3) et de valeurs variables (déclarées publiques et enregistrées via des macros préalablement) pour les y (Var01, Var02, Var03, Var04)
Comment lui indiquer ceci ?
De plus, est-il possible de lui indiquer que le graphique doit être placé dans la cellule B29 ?
Sub Graphique()
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("C9")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R3C1:R6C1"
ActiveChart.SeriesCollection(1).Values = "=Feuil1!R3C2:R6C2"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Titre du graphique"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Axe des x"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Axe des y"
End With
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
ActiveChart.HasLegend = False
Windows("Classeur1").SmallScroll Down:=3
ActiveWindow.Visible = False
Windows("Classeur1").Activate
Range("H16").Select
End Sub
Merci d'avance
Je souhaiterais qu'une macro réalise un graphique à partir de valeurs fixes pour les x (0, 1, 2, 3) et de valeurs variables (déclarées publiques et enregistrées via des macros préalablement) pour les y (Var01, Var02, Var03, Var04)
Comment lui indiquer ceci ?
De plus, est-il possible de lui indiquer que le graphique doit être placé dans la cellule B29 ?
Sub Graphique()
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("C9")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R3C1:R6C1"
ActiveChart.SeriesCollection(1).Values = "=Feuil1!R3C2:R6C2"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Titre du graphique"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Axe des x"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Axe des y"
End With
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
ActiveChart.HasLegend = False
Windows("Classeur1").SmallScroll Down:=3
ActiveWindow.Visible = False
Windows("Classeur1").Activate
Range("H16").Select
End Sub
Merci d'avance