Discussion :

[Olivierporcinet]

Bonjour

J'ai créer un bouton et je désirerais masquer toutes les feuilles sauf celle nommée "BCA"

Code :

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

Private Sub CommandButton4_Click()

Quelqu'un peut m'aider, merci

Autre question :

Voici mon code, il marche très bien mais est-il possible de ne pas devoir recomier toutes les feuilles une à une ? - possible de les grouper ?

Code :

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

1
2
3
4
5
6
Private Sub CommandButton1_Click()
Sheets("BCA").Visible = xlSheetVisible
Sheets("BCA2").Visible = xlSheetVisible
Sheets("KBin").Visible = xlSheetVeryHidden 'ou xlSheetVeryHidden
Sheets("KBin2").Visible = xlSheetVeryHidden 'ou xlSheetVeryHidden
End Sub

Merci et bonne journée

[Soraphiroth]

Une boucle rapide :

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton4_Click()
 
    For Each sh In Sheets
        If sh.Name <> "BCA" Then sh.Visible = xlSheetHidden
    Next
 
End Sub

Concernant ta deuxième question, si tu n'as que ces feuilles autant rester ainsi. Si ton nombre de feuille est grandissant tu peux utiliser la boucle ci-dessus, en ajoutant les feuilles à ne pas cacher aux conditions.

[Olivierporcinet]

merci.
Et comment faire pour afficher la feuille BCA et une autre ?

Merci beaucoup

en fait, je précise : masquer toutes les feuilles du classeur SAUF

Menu et BCA

meci

[Soraphiroth]

en ajoutant la condition au if :

Code :

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

if sh.name <> "BCA" and sh.name <> "Menu" then

[Olivierporcinet]

un grand merciiiii
bonne journée