Titi_Malembourg
XLDnaute Occasionnel
Bonsoir,
Je viens d'enregistrer une macro qui ne marche pas quand je l'execute.
Pourquoi ca ?
Voici le texte de la macro :
Sub Macro9()
'
' Macro9 Macro
' Macro enregistrée le 28/06/05 par Moimeme
'
'
Charts.Add
ActiveChart.ChartType = xlSurface
ActiveChart.SetSourceData Source:=Sheets('Point 4').Range('C14:K22'), PlotBy _
:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, name:='Point 4'
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = 'Nappe polynomiale appliquée'
.Axes(xlCategory).HasTitle = False
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
End With
ActiveSheet.Shapes('Graphique 2').IncrementLeft 216.75
ActiveSheet.Shapes('Graphique 2').IncrementTop 141.75
End Sub
Merci d'avance pour vos réponses
A bientot !
Je viens d'enregistrer une macro qui ne marche pas quand je l'execute.
Pourquoi ca ?
Voici le texte de la macro :
Sub Macro9()
'
' Macro9 Macro
' Macro enregistrée le 28/06/05 par Moimeme
'
'
Charts.Add
ActiveChart.ChartType = xlSurface
ActiveChart.SetSourceData Source:=Sheets('Point 4').Range('C14:K22'), PlotBy _
:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, name:='Point 4'
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = 'Nappe polynomiale appliquée'
.Axes(xlCategory).HasTitle = False
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
End With
ActiveSheet.Shapes('Graphique 2').IncrementLeft 216.75
ActiveSheet.Shapes('Graphique 2').IncrementTop 141.75
End Sub
Merci d'avance pour vos réponses
A bientot !