supprimer des boutons mais pas des graphiques

[seb.bc]

Bonjour à tous,
J'ai besoin de supprimer une grande quantité de boutons dans plusieures feuilles d'un même classeur.

J'ai trouver sur le forum plusieurs post qui m'ont permis d'écrire ceci

Dim S As Shape
For i = 1 To Sheets.Count
    Sheets(i).Select
    For Each S In ActiveSheet.Shapes
    S.Delete
    Next S
Next i
Sheets(1).Select

MAIS je me suis appercu en lancant la macro que les graphiques était supprimé aussi.

Alors j'ai modifier mon code pour tester si c'était bien un "button X" mais j'ai un message d'erreur N° 438. Qui peux m'aider???

Dim S As Shape
For i = 1 To Sheets.Count
    Sheets(i).Select
    For Each S In ActiveSheet.Shapes
    S.Select
    If S.Text Like "*button*" Then S.Delete
    Next S
Next i
Sheets(1).Select

Un grand merci d'avance à tous.

 

[mromain]

Re : supprimer des boutons mais pas des graphiques

bonjour,

pour éviter de détruire les graphiques :

If Not S.Type = msoChart Then S.Delete

a+

 

[seb.bc]

[Résolu] Re : supprimer des boutons mais pas des graphiques

Merci mromain,
Je n'avais pas pensé à cette aproche.
Ca fonctionne parfaitement.

Une fois de plus un grand merci et bravo au forum!