boutons

[Esox]

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,

 

[Etienne2323]

Re : boutons

Salut Esox,
essayez quelque chose comme ceci :

Sub Supprimer_boutons()

Dim Bouton As Shape

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

End Sub

Cordialement,

Étienne

 

[Pierrot93]

Re : boutons

Bonjour,

regarde ce 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
@+

 

[Esox]

Re : boutons

Merci, je teste dès demain...
Merci encore...