Supprimer tous les boutons d'un classeur

**Un Internaute** · 25/09/2014, 07h17

Bonjour le forum,
J'ai trouvé le code ci-dessous pour supprimer les boutons d'une feuille mais je voudrais supprimer les boutons d'un classeur de 12 onglets de Janvier 2014 à Décembre 2014.
Quelqu'un a-t-il une idée?
D'avance merci pour vos réponses
Bien cordialement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub supprime_C_Shapes()
 'adapté de:
 'Sub remove_objects()
 'Erik Van Geit
 Dim Forme As Object
 For Each Forme In ActiveSheet.Shapes
 With Forme
     Select Case .Type
     Case 8
     'ici permet de ne pas supprimer
     'les boutons de la BO Formulaire
     Case Else
     'supprime le reste
     .Delete
     End Select
 End With
 Next Forme
 End Sub

**QuestVba** · 25/09/2014, 09h15

Bonjour,

Voici le code pour boucler sur toutes les feuilles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
'Déclare la variable objet Worksheet 
Dim Ws As Worksheet 
 
'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris 
'en compte. 
'ThisWorkbook correspond à l'objet classeur contenant la macro 
For Each Ws In ThisWorkbook.Worksheets 
    'Renvoie le nom de chaque feuille 
    MsgBox Ws.Name 
Next Ws