afficher une feuille masqué

A

achraf26

XLDnaute Occasionnel
Bonjour,
afficher les feuilles masqué nommés ( B - C - D ) si la Cellule ( B1) feuille (A) Contient le mot "Start".
Merci
 
Trier par date Trier par votes
T

TBS

XLDnaute Nouveau
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
job75

job75

XLDnaute Barbatruc
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
A

achraf26

XLDnaute Occasionnel
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
phlaurent55

phlaurent55

Nous a quittés en 2020
Repose en paix
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
S

Si...

XLDnaute Barbatruc
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

  • vu pas vu.xlsm
    19.3 KB · Affichages: 25
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
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
A

achraf26

XLDnaute Occasionnel
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
A

achraf26

XLDnaute Occasionnel
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
phlaurent55

phlaurent55

Nous a quittés en 2020
Repose en paix
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
phlaurent55

phlaurent55

Nous a quittés en 2020
Repose en paix
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
A

achraf26

XLDnaute Occasionnel
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

  • Nomé les feuilles.xlsm
    18.5 KB · Affichages: 16
Vote positif 0 Vote négatif

Discussions similaires

B
  • Résolu(e)
XL 2016 Ouvrir une feuille masquée avec un lien hypertexte
Réponses
2
Affichages
207
berru76
B
V
  • Question
Microsoft 365 date d'échéance
Réponses
2
Affichages
116
Vdex#
V
chaelie2015
  • Résolu(e)
XL 2013 Masquer Combobox selon autre combobox
Réponses
1
Affichages
190
chaelie2015
chaelie2015
A
  • Résolu(e)
XL 2021 Trier deux tableaux + afficher les lignes
Réponses
7
Affichages
531
Gégé-45550
Gégé-45550
U
  • Résolu(e)
Autres Centrer ou Annuler Centrer
Réponses
12
Affichages
210
un internaute
U
P
  • Résolu(e)
Autres Navigation entre onglet
Réponses
3
Affichages
227
job75
job75
K
  • Question
XL 2016 faire une fonction chronomètre avec Excel
Réponses
8
Affichages
339
Franc58
F
T
  • Question
XL pour MAC Mettre une cellule en couleur quand la réponse est juste
Réponses
11
Affichages
544
TooFatBoy
TooFatBoy
B
  • Résolu(e)
XL 2021 sélection ficher excel ligne non masquer entièrement (clos)
Réponses
8
Affichages
166
riton00
riton00
A
  • Résolu(e)
Microsoft 365 Correction d'un code vba
2
Réponses
22
Affichages
741
AD95
A

Membres actuellement en ligne

4 membres et 35 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 069
Messages
2 085 041
Membres
102 764
dernier inscrit
nestu