Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

supprimer des boutons macro sur certaine feuilles

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

michel.dupont

XLDnaute Occasionnel
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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
245
Réponses
0
Affichages
567
Réponses
7
Affichages
626
Réponses
7
Affichages
219
Réponses
4
Affichages
205
Réponses
7
Affichages
728
Réponses
1
Affichages
530
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…