Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion Esox
  • Date de début Date de début

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 !

Esox

XLDnaute Occasionnel
Bonjour le forum,

J'ai cette ligne de macro :

ActiveSheet.Shapes.Range(Array("Button 4", "Button 7", "Button 5", "Button 8" _
, "Button 6", "Button 9", "Button 10", "Button 11" _
, "Picture 12", "Button 3", "Button 2")).Select
Selection.Delete


qui me sélectionne un à un les boutons et les supprime ensuite. Y aurait il moyen de les supprimer tous sans se préoccuper de leur nom ? genre : delete all button

Merci de votre aide,
 
Re : boutons

Salut Esox,
essayez quelque chose comme ceci :

Code:
Sub Supprimer_boutons()

Dim Bouton As Shape

Application.ScreenUpdating = False
For Each Bouton In ActiveSheet.Shapes
    Bouton.Delete
Next

End Sub

Cordialement,

Étienne
 
Re : boutons

Bonjour,

regarde ce code :
Code:
Sheets("Feuil1").Shapes.SelectAll
Selection.Delete

mais attention, tous les objets présents sur ta feuille de "type "shape" seront supprimés...

bonne soirée
@+
 
- 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
1
Affichages
313
Réponses
38
Affichages
1 K
  • Question Question
Power Query Power Query
Réponses
26
Affichages
989
N
Réponses
0
Affichages
685
nicolashesse93
N
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…