Effacement de boutons de formulaire sauf les graphiques

Bonsoir

juste une petite question , en utilisant instruction :

For Each obj In ActiveSheet.Shapes
If obj.Type = msoFormControl And obj.Type <> ChartObjects Then obj.Delete
Next obj

qui me permet de ne pas copier les boutons de formulaire sur la feuille à copier , celle ci me supprime également les graphiques qui s'y trouvent, comment puis je modifier mon instruction pour que celle ci ne supprime pas mes graphiques ?

Merci pour toute suggestion .

Bonjour

Je viens de tester avec Excel 2003 et les graphiques ne sont pas effacés

Cordialement

Merci pour cette réponse Amadéus , j'ai fait un test c'est aussi le cas par contre lorsque je veux enregistrer une feuille de calcul

contenant des graph mais sans les boutons dans un autre classeur , les graph sont effacés avec la meme instruction .....

je vais essayer de me pencher sur la question en tout cas merci ...

résolu , j'ai juste indiqué le nom du classeur de destination avant ActiveSheet.Shapes dans l'instruction

For Each obj In ActiveSheet.Shapes