Bonjour,
Est ce que quelqu'un peut il me dire pourquoi la macro suivante fonctionne sous 2003 et pas 2007 ?
Il s'agit d'une macro qui génère un graphique en nuage de points avec 2 séries.
Merci d'avance pour vos réponses...
Sub graphique()
'
' graphique Macro
' Macro enregistrée le 28/08/2008 par srea
'
'
Rows("1:1").Select
Selection.EntireRow.Hidden = True
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("Peformance").Cells, PlotBy:= _
xlColumns
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Peformance!C6"
ActiveChart.SeriesCollection(1).Values = "=Peformance!C5"
ActiveChart.SeriesCollection(1).Name = "=""n° CL"""
ActiveChart.SeriesCollection(2).XValues = "=Peformance!C6"
ActiveChart.SeriesCollection(2).Values = "=Peformance!C7"
ActiveChart.SeriesCollection(2).Name = "=""Moyenne"""
ActiveChart.Location Where:=xlLocationAsObject, Name:="Graphique"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub
Est ce que quelqu'un peut il me dire pourquoi la macro suivante fonctionne sous 2003 et pas 2007 ?
Il s'agit d'une macro qui génère un graphique en nuage de points avec 2 séries.
Merci d'avance pour vos réponses...
Sub graphique()
'
' graphique Macro
' Macro enregistrée le 28/08/2008 par srea
'
'
Rows("1:1").Select
Selection.EntireRow.Hidden = True
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("Peformance").Cells, PlotBy:= _
xlColumns
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Peformance!C6"
ActiveChart.SeriesCollection(1).Values = "=Peformance!C5"
ActiveChart.SeriesCollection(1).Name = "=""n° CL"""
ActiveChart.SeriesCollection(2).XValues = "=Peformance!C6"
ActiveChart.SeriesCollection(2).Values = "=Peformance!C7"
ActiveChart.SeriesCollection(2).Name = "=""Moyenne"""
ActiveChart.Location Where:=xlLocationAsObject, Name:="Graphique"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub