Problème de macro
Bonjour à tous,
J'ai un problème avec une macro et je ne sais pas pourquoi ça ne marche pas alors si vous avez une idée.
Sub Graphique()
'
' Graphique Macro
' Macro enregistrée le 02/05/2011 par Administrateur
'
'
Range("B7").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("Tableau de résultats").Range( _
"B7:G38"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Annexe 2"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = _
"Annexe 2: Représentation graphique des mesures enregistrées pendant la période de stabilisation"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub
Merci d'avance
J'ai un problème avec une macro et je ne sais pas pourquoi ça ne marche pas alors si vous avez une idée.
Sub Graphique()
'
' Graphique Macro
' Macro enregistrée le 02/05/2011 par Administrateur
'
'
Range("B7").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("Tableau de résultats").Range( _
"B7:G38"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Annexe 2"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = _
"Annexe 2: Représentation graphique des mesures enregistrées pendant la période de stabilisation"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub
Merci d'avance
