Problème de macro
timot50
Messages postés
13
Statut
Membre
-
timot50 Messages postés 13 Statut Membre -
timot50 Messages postés 13 Statut Membre -
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
