Discussion :

[PSudmar]

Bonjour,
J'ai un problème lors de l'exécution de ma macro. Voici le problème :
J'ai un fichier contenant les données suivantes :

Je crée la macro suivante :
-----------------------------------
Sub Macro4()

' Sélection de la zone
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
' Création d'un camembert
ActiveSheet.Shapes.AddChart2(251, xlPie).Select
ActiveChart.SetSourceData Source:=Range("Feuil1!$A$1:$B$4")
' Ajout d'une zone de texte
Application.WindowState = xlMaximized
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 8.25, _
183.3750393701, 93, 23.25).Select
' Copie dans cette zone de la valeur de la cellule D1
Selection.Formula = "=Feuil1!R1C4"
Range("A1:B4").Select
Range("A2").Activate

End Sub
-----------------------------------
Résultat des courses, tout est ok :



MAIS si j'efface le graphique et relance la macro, j'ai le message d'erreur suivant sur la ligne Selection.Formula :



Une idée du pourquoi et comment corriger cela ?

Cordialement