supprimer des boutons macro sur certaine feuilles

[michel.dupont]

Bonjour
j'ai un fichier excell 2010 avec de nombreux boutons macro...je souhaite supprimer tous les boutons par macro mais sur certaines feuilles seulement...
voici mon code mais qui ne fonctionne pas car il supprime tous les boutons sauf sur la page ou le bouton de cette macro est placé
Sub Del_Objets()
Dim Ws As Worksheet
For Each Ws In Sheets
If Ws.Name <> "parametres" And Ws.Name <> "tableau" And Ws.Name <> "mois" And Ws.Name <> "nv 1" And Ws.Name <> "tri" Then
Ws.DrawingObjects.Delete

End If
Next Ws

End Sub

merci de votre aide
Michel

 

[Roland_M]

bonjour,

ça doit fonctionner, ou alors, c'est que le bouton en question est placé dans une de ces feuilles !?

If Ws.Name <> "parametres" And Ws.Name <> "tableau" And Ws.Name <> "mois" And Ws.Name <> "nv 1" And Ws.Name <> "tri" Then

 

[michel.dupont]

Bonjour
désolé du retard apporté à votre suggestion...après plusieurs tentatives de modification du code celui-ci ne fonctionne toujours pas...les boutons se suppriment sut toutes les feuilles dès que je les active ...autrement dès quand je passe d'un onglet à l'autre y compris sur les feuilles qui doivent faire exceptions pouvez-vous y jeter un coup d'oeil...
amicalement
pour rappel mon code

Sub Del_Objets()
Dim Ws As Worksheet
For Each Ws In Sheets
If Ws.Name <> "parametres" And Ws.Name <> "tableau" And Ws.Name <> "mois" And Ws.Name <> "nv 1" And Ws.Name <> "tri" Then
Ws.DrawingObjects.Delete

End If
Next Ws

End Sub

En savoir plus sur https://www.excel-downloads.com/thr...rtaine-feuilles.20023337/#KmYitg3f36EzpZTy.99

 

[Roland_M]

Bonjour,

bizarrement le lien ne répond pas !?

 

[michel.dupont]

Bonjour,

bizarrement le lien ne répond pas !?

 

[michel.dupont]

voilà ma macro fonctionne à présent
un grand merci pour votre attention
amicalement
Michel