Suppresion de certains onglets sur la feuille

[Lighter]

Bonjour le Forum,
Je cherche sur une feuille Excel à trouver le code qui me permet de supprimer certains onglets de la feuille.
J'ai par exemple trois onglets A, B et C comme dans le fichier joint. Quel code pour ne garder que l'onglet B
Merci à vous tou(te)s
Bonne journée

 

[YANN-56]

Re : Suppresion de certains onglets sur la feuille

Bonjour,

Tu peux, avec un bouton dans la feuille ou dans un USF:

Private Sub CommandButton1_Click()
Dim FEUILLE As Worksheet
Application.DisplayAlerts = False
For Each FEUILLE In ThisWorkbook.Worksheets   
If FEUILLE.Name <> "B" Then
 FEUILLE.Delete
 End If
Next
Application.DisplayAlerts = True
End Sub

A noter que dans ce cas tu es obligé de garder la feuille portant le Bouton.
(Il est aussi évident que l'on est contraint de conserver au moins une feuille)

Au plaisir.

Yann

 

[Lighter]

Re : Suppresion de certains onglets sur la feuille

Alors là Yann c'est vraiment sympa. Grace à toi, j'ai le sentiment de sortir de l'ombre sur ce coup.
Mille mercis