Discussion :

[Un Internaute]

Bonsoir le forum,
Voici la macro pour supprimer les boutons dans les onglets de Janvier 2014 à Décembre 2014.

Maintenant je veux faire l'inverse.
Quelqu'un aurait-il le code qui peut faire ça?
Comme vous avez pu le constater ce matin ce n'est pas de la mauvaise foi...mais je ne suis pas VBA!!!
Merci pour vos éventuelles 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
19
20
21
22
23
24
25
26
27
Sub supprime_C_Shapes()
 Dim nombre As Integer
 Dim Ws As Worksheet
 nombre = ActiveWorkbook.Sheets.Count
 Application.ScreenUpdating = False
 For I = 1 To nombre
 Worksheets(I).Unprotect Password:="blabla"
 Next I
   Application.ScreenUpdating = False
  AfficherOnglets
 
 Dim Forme As Object
  For Each Ws In Sheets
    For Each Forme In Ws.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
  Next Ws
 End Sub

[Marc-L]

Dans ce cas, mieux vaut ne pas les supprimer mais les cacher via la propriété Visible pour les réafficher plus tard …

[Un Internaute]

Bonjour Marc-L,
Oui c'est une astuce.
Merci te t'être intéressé au sujet.
Je te souhaite une bonne journée et un bon WE
Bien cordialement