Macro enregistrée qui ne marche pas

[Titi_Malembourg]

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 !

 

[PascalXLD]

Bonjour

à mon avis ton graphique ne s'appelle plus 'graphique 2'

Bon courage

 

[Titi_Malembourg]

Il me met :
La méthode chartype de l'objet '-chart' a échoué...

Je vais vérifier les noms de graph...

Message édité par: Titi_Malembourg, à: 28/06/2005 15:52

 

[Titi_Malembourg]

Il bloque à :
ActiveChart.ChartType = xlSurface

 

[Titi_Malembourg]

L'erreur est toujours la... Je ne sais comment la régler.
Enorme merci à tous ceux qui pourraient régler mon problème.

 

[PascalXLD]

Re

essaies en rajoutant en début de code

Sheets('Point 4').Range('C14:K22').Select

 

[Bernard_XLD]

Bonjour Pascal76, Titi_Malembourg, le forum

déplaces ton instruction charttype aprés le positionnement dans la feuille et cela fonctionnera

Cordialement, A+

Charts.Add
ActiveChart.SetSourceData Source:=Sheets('Point 4').Range('C14:K22'), PlotBy _
:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:='Point 4'
ActiveChart.ChartType = xlSurface
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

 

[Titi_Malembourg]

Je te remercie Yeahou, ca marche.
Cependant, comment appeler un graphique dont on ne connait pas le nom ?
En effet, je voudrais après le déplacer et j'ai besoin de le selectionne

 

[Bernard_XLD]

Bonjour

tu peux pour te simplifier la vie lui donner une référence, en plus ton code sera plus facilement réutilisable.

A+

Dim Chart_Perso As Chart

Charts.Add
ActiveChart.SetSourceData Source:=Sheets('Point 4').Range('C14:K22'), PlotBy _
:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:='Point 4'

Set Chart_Perso = ActiveChart

Chart_Perso.ChartType = xlSurface
With Chart_Perso
.HasTitle = True
.ChartTitle.Characters.Text = 'Nappe polynomiale appliquée'
.Axes(xlCategory).HasTitle = False
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
End With

MsgBox Chart_Perso.Name

 

[Titi_Malembourg]

Merci beaucoup pour ton aide.
Bonne journée et à bientot