bonjour à tous
voila je souhaite automatiser la crétion d'un graphique à l'aide d'une macro
ce graphique se créer depuis une feuille spécifique
mon problème se situe au moment où le programme récupère les valeurs des abscisses
viola mon code
la ligne qui ne va pas : ActiveChart.SeriesCollection(1).XValues = "='NomFeuille'!R20C13:R33C13"
merci
voila je souhaite automatiser la crétion d'un graphique à l'aide d'une macro
ce graphique se créer depuis une feuille spécifique
mon problème se situe au moment où le programme récupère les valeurs des abscisses
viola mon code
Code:
NomFeuille = ActiveSheet.Name
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets(NomFeuille).Range("M19:N33"), _
PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).XValues = "='NomFeuille'!R20C13:R33C13"
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Avancement DCT et DEV"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "DEV -%"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
la ligne qui ne va pas : ActiveChart.SeriesCollection(1).XValues = "='NomFeuille'!R20C13:R33C13"
merci