afficher une feuille masqué

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion achraf26
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Trier par date Trier par votes
Bonsoir

Ce code doit fonctionner.
A mettre dans la feuille A

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)

If Range("B1").Value = "start" Then
Sheets("B").Visible = True
Sheets("C").Visible = True
Sheets("D").Visible = True
Else
Sheets("B").Visible = False
Sheets("C").Visible = False
Sheets("D").Visible = False
End If

End Sub

@+
 
Vote positif 0 Vote négatif
Bonsoir achraf26, Philippe, TBS,

Une autre solution :
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, e
Application.ScreenUpdating = False
a = Array("B", "C", "D")
For Each e In a
  Sheets(e).Visible = xlSheetVisible
Next
If LCase([B1]) <> "start" Then Sheets(a).Visible = xlSheetHidden 'xlSheetVeryHidden
End Sub
A+
 
Vote positif 0 Vote négatif
job75 à dit:
Bonsoir achraf26, Philippe, TBS,

Une autre solution :
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, e
Application.ScreenUpdating = False
a = Array("B", "C", "D")
For Each e In a
  Sheets(e).Visible = xlSheetVisible
Next
If LCase([B1]) <> "start" Then Sheets(a).Visible = xlSheetHidden 'xlSheetVeryHidden
End Sub
A+
Cliquez pour agrandir...
Bonjour Job,
Merci pour la réponse,
avec ce code , les feuilles ne sont pas sécurisés, on sait l'afficher avec bouton gauche de la souris
 
Vote positif 0 Vote négatif
Bonjour à tous

Une feuille peut être:

HIDDEN, elle peut alors être rendue visible par un clic-droit

VERYHIDDEN, il faut alors modifier la propriété "Visible" dans les propriétés de la feuille

À+
Philippe

Edit:
Pour quelqu'un qui connait l'astuce, il pourra rendre les feuilles visibles même si le code est protégé
 
Vote positif 0 Vote négatif
Bonjour

autre exemple pour 3 cas
Code: 
Dim S(4) As Worksheet, n As Byte
Private Sub Worksheet_Change(ByVal R As Range)
    For n = 1 To 4
        Set S(n) = Sheets(Chr(65 + n)): S(n).Visible = 2
    Next
    Application.ScreenUpdating = 0 
    Select Case [B1]
        Case "Start1": S(1).Visible = 1: S(2).Visible = 1
        Case "Start2": S(3).Visible = 1: S(4).Visible = 1
        Case "Start3": S(1).Visible = 1: S(2).Visible = 1: S(3).Visible = 1: S(4).Visible = 1
    End Select
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour à tous,

Au post #8 il est dit "j'ai essayé de mettre Start3 pour feuille B-C-D-E"

Mais dans le fichier il est dit "Start1 normalement deverait ouvrir tous les feuilles".

Si c'est cette dernière proposition que l'on retient :
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, b, e
Application.ScreenUpdating = False
a = Array("B", "C")
b = Array("D", "E")
For Each e In Split(Join(a, Chr(1)) & Chr(1) & Join(b, Chr(1)), Chr(1))
  Sheets(e).Visible = xlSheetVisible
Next
If LCase([B1]) = "start1" Then Exit Sub
If LCase([B1]) <> "start2" Then Sheets(a).Visible = xlSheetHidden 'xlSheetVeryHidden
If LCase([B1]) <> "start3" Then Sheets(b).Visible = xlSheetHidden 'xlSheetVeryHidden
Me.Select
End Sub
Bonne journée.
 
Vote positif 0 Vote négatif
job75 à dit:
Bonjour à tous,

Au post #8 il est dit "j'ai essayé de mettre Start3 pour feuille B-C-D-E"

Mais dans le fichier il est dit "Start1 normalement deverait ouvrir tous les feuilles".

Si c'est cette dernière proposition que l'on retient :
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, b, e
Application.ScreenUpdating = False
a = Array("B", "C")
b = Array("D", "E")
For Each e In Split(Join(a, Chr(1)) & Chr(1) & Join(b, Chr(1)), Chr(1))
  Sheets(e).Visible = xlSheetVisible
Next
If LCase([B1]) = "start1" Then Exit Sub
If LCase([B1]) <> "start2" Then Sheets(a).Visible = xlSheetHidden 'xlSheetVeryHidden
If LCase([B1]) <> "start3" Then Sheets(b).Visible = xlSheetHidden 'xlSheetVeryHidden
Me.Select
End Sub
Bonne journée.
Cliquez pour agrandir...

Bonsoir job, merci pour le boulot
les feuilles fonctionnent corecctement à part ce n'est pas sécurisé on peut afficher les feuilles en cliquant sur la touche droite de la souris et on affiche les feuilles masquées
Merci
 
Vote positif 0 Vote négatif
Si... à dit:
Bonjour

autre exemple pour 3 cas
Code: 
Dim S(4) As Worksheet, n As Byte
Private Sub Worksheet_Change(ByVal R As Range)
    For n = 1 To 4
        Set S(n) = Sheets(Chr(65 + n)): S(n).Visible = 2
    Next
    Application.ScreenUpdating = 0
    Select Case [B1]
        Case "Start1": S(1).Visible = 1: S(2).Visible = 1
        Case "Start2": S(3).Visible = 1: S(4).Visible = 1
        Case "Start3": S(1).Visible = 1: S(2).Visible = 1: S(3).Visible = 1: S(4).Visible = 1
    End Select
End Sub
Cliquez pour agrandir...

Merci ça fonctionne correctement, j'ai même réussi à rajouter une feuille nommé F j'ai mis S(5) ça fonctionnait, ma question est si j'ai plusieurs feuilles comment je vais savoir le numéro que je dois attribué à une feuille pour la controler ?
Merci pour votre aide
 
Vote positif 0 Vote négatif
Re,

J'ai donné la solution plus haut,

Une feuille peut être:
VISIBLE
HIDDEN
VERYHIDDEN

Il faut utiliser la 3eme solution
........ et ne pas oublier de protéger le code.

Cette protection n'est pas 100% efficace.

À+
Philippe
 
Vote positif 0 Vote négatif
achraf26 à dit:
Merci ça fonctionne correctement, j'ai même réussi à rajouter une feuille nommé F j'ai mis S(5) ça fonctionnait, ma question est si j'ai plusieurs feuilles comment je vais savoir le numéro que je dois attribué à une feuille pour la controler ?
Merci pour votre aide
Cliquez pour agrandir...

L
Au bas de ton écran les noms des onglets apparaissent.
De la gauche vers la droite,
Le premier c'est le 1
Le second c'est le 2
Le ..........

À+
Philippe
 
Vote positif 0 Vote négatif
Si... à dit:
Bonjour

autre exemple pour 3 cas
Code: 
Dim S(4) As Worksheet, n As Byte
Private Sub Worksheet_Change(ByVal R As Range)
    For n = 1 To 4
        Set S(n) = Sheets(Chr(65 + n)): S(n).Visible = 2
    Next
    Application.ScreenUpdating = 0
    Select Case [B1]
        Case "Start1": S(1).Visible = 1: S(2).Visible = 1
        Case "Start2": S(3).Visible = 1: S(4).Visible = 1
        Case "Start3": S(1).Visible = 1: S(2).Visible = 1: S(3).Visible = 1: S(4).Visible = 1
    End Select
End Sub
Cliquez pour agrandir...

Bonsoir, les feuilles que j'ai dans ma classeur ont temporairement un surnom... je vais changé le nom de la feuille par aprés, le problème j'ai nommé la feuille n°2 (B) = Bernard, y'a erreur d'execution, les feuilles seront pas numéroté. c'est la seule solution que j'ai pris pour commencer bien mon calsseur, je me suis bloqué dans ce cas de nomination ça changera tous
 

Pièces jointes

Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
Procédure de mise à jour et copie de plages de données
Réponses
5
Affichages
108
Cléa
Cléa
F
  • Question Question
XL 2019 Demande aide de formule
Réponses
5
Affichages
208
Fidmo
F
C
  • Question Question
Blocage affichage de l'ecran
Réponses
13
Affichages
776
chris66000
C
Magic_Doctor
  • Résolu(e)
XL 2019 Problème avec un RollOver
2
Réponses
20
Affichages
440
TooFatBoy
TooFatBoy
Dudu2
  • Question Question
XL 2016 VBA - Visualiser un document PDF dans Excel
Réponses
9
Affichages
579
patricktoulon
patricktoulon
F
  • Question Question
XL 2016 Recherchev élaboré
Réponses
4
Affichages
193
laurent950
laurent950
kaki31
  • Question Question
XL 2016 Recherche mot dans texte
Réponses
11
Affichages
467
jurassic pork
jurassic pork
B
  • Résolu(e)
XL 2021 Concours / afficher un nom selon une liste
Réponses
2
Affichages
183
berru76
B
U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
229
cathodique
cathodique
S
  • Résolu(e)
Microsoft 365 Afficher la référence de colonne d'un entête
Réponses
3
Affichages
278
Cousinhub
Cousinhub
AIXELS
  • Question Question
Microsoft 365 Afficher un userform sans titre
Réponses
2
Affichages
163
AIXELS
AIXELS
P
  • Résolu(e)
XL 2021 masquage de ligne selon condition
2
Réponses
17
Affichages
586
sylvanu
sylvanu
Dudu2
  • Question Question
XL 2021 EXCEL bousille le contexte dans un cas très particulier (pour les forts en thème... et en version)
Réponses
3
Affichages
182
TooFatBoy
TooFatBoy
K
  • Question Question
Microsoft 365 tableau avec fonctionnement en double logique
Réponses
7
Affichages
293
KRISS2A
K
halecs93
  • Question Question
XL 2016 Cumul des heures par numéro de semaine.
Réponses
4
Affichages
169
halecs93
halecs93
S
  • Résolu(e)
XL 2021 Une macro pour plusieurs togglebutton (Userform)
Réponses
13
Affichages
287
sourcier09
S
M
  • Question Question
Microsoft 365 Chercher dernière valeur d'une ligne mais avec une particularité
Réponses
4
Affichages
237
Marie.
M
F
  • Question Question
Autres Fonction si
Réponses
10
Affichages
335
sylvanu
sylvanu
P
  • Résolu(e)
XL 2021 Formule avec SI ET et si possible plusieurs ET
Réponses
4
Affichages
211
PR.
P
D
  • Question Question
Microsoft 365 récupération mot de passe excel
Réponses
7
Affichages
288
job75
job75
Retour