Bonjour,
je souhaite créer un graphique à partir d'une macro, mais que la fonction puisse faire plusieurs graphiques différents donc que les plages de données soient variables.
existe t-il un "code" pour passer de l'un a l'autre (=feuille!$B$ligne_debut:$B$ligne_fin qui dans un macro se transforme en =feuille!R8C2:R29C2)?
voici une partie du code avec les endroit en gras correspondant au problème :
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("pluviométrie").Range("D12:J12"), _
PlotBy:=xlRows
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=meteo!R8C2:R29C2"
ActiveChart.SeriesCollection(1).Values = "=meteo!R8C14:R29C14"
ActiveChart.SeriesCollection(1).Name = "=""pluviométrie instantannée"""
ActiveChart.SeriesCollection(2).Values = "=meteo!R2C15:R29C15"
ActiveChart.SeriesCollection(2).Name = "=""pluviométrie totale"""
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="mois davril"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "pluviométrie " & mois_ecrit & "" & année
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "date"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "eau (mm)"
End With
ActiveChart.SeriesCollection(2).Select
ActiveChart.SeriesCollection(2).ChartType = xlLine
Merci de vos réponses.
je souhaite créer un graphique à partir d'une macro, mais que la fonction puisse faire plusieurs graphiques différents donc que les plages de données soient variables.
existe t-il un "code" pour passer de l'un a l'autre (=feuille!$B$ligne_debut:$B$ligne_fin qui dans un macro se transforme en =feuille!R8C2:R29C2)?
voici une partie du code avec les endroit en gras correspondant au problème :
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("pluviométrie").Range("D12:J12"), _
PlotBy:=xlRows
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=meteo!R8C2:R29C2"
ActiveChart.SeriesCollection(1).Values = "=meteo!R8C14:R29C14"
ActiveChart.SeriesCollection(1).Name = "=""pluviométrie instantannée"""
ActiveChart.SeriesCollection(2).Values = "=meteo!R2C15:R29C15"
ActiveChart.SeriesCollection(2).Name = "=""pluviométrie totale"""
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="mois davril"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "pluviométrie " & mois_ecrit & "" & année
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "date"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "eau (mm)"
End With
ActiveChart.SeriesCollection(2).Select
ActiveChart.SeriesCollection(2).ChartType = xlLine
Merci de vos réponses.