XL 2013 Macro afficher une page masquée

Salut,

tu peux essayer ça (à ajouter dans le code de la feuille utilisée) :




Edit: suite commentaire de jecherche

Bonjour,

Je crois que Bigpouss veut faire afficher la feuille, donc
Sheets ("nom de la page à masquer").Visible = True


jecherche

Bonsoir
Vu que tu n'as pas de réponse , j'ai passé juste 10 min pour te faire un exemple joint
c'est par un double clic dans la case après avoir taper VENDREDI
comme ton exemple , normalement avec un CHANGE cela devrait fonctionner
un bon Barbatruc devrait pouvoir te le finaliser !

Effectivement, je viens de modifier

Merci jecherche

Bonsoir à tous

Ma façon de faire 😉 (avec un un brin d'humour)

Et la version sans humour

C'est beau bravo Staple1600!

Bonjour à tous,
Salut Hervé,
Salut l'Agrafe,

Un essai par double clique sur un jour.
L'activation de la feuille "Accueil" masque les autres.


A+ à tous

Bonsoir à tous ,
Salut les anciens , Jean claude tu remarqueras toujours mon Wouaf .. wouaf
de vous avoir "piqué" pour répondre à notre pauvre ami perdu !!!!
et JM qui répond sans fichier joint ?? ( Y va comprendre aussi mon humour)

A tous,
avant de tester vos diverses solutions je tiens a vous remercier par avance pour ces differentes propositions
Je reviens vers vous tres vite
Le Pouss

A tous,
Merci beaucoup pour votre aide, j'ai simplifie vos propostions afin d'inclure cette action au sein d'une autre macro deja en place dans le document.
le code complet est donc le suivant :

'lancement de macro par bouton'
Sub enregistrer_classeur()
ActiveSheet.Unprotect Password:="azerty"
Range("A1:I1,A2:E2,A3:I52").Select
Range("A3").Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic

'enregistrment du doc en fonction des infos remplies'
Dim chemin As String, fichier As String
chemin = "G:\Site\pompier\Cahier de Quart\"
fichier = chemin & Range("G2") & " " & Range("H2") & " " & Range("I2") & ".xlsm"
ActiveWorkbook.SaveAs Filename:=fichier


'activation des cellules protégées'
ActiveSheet.Unprotect
Range("B2,D2:E2,G2:I2,B5😀10,B11,D11,F5:I11,A13:I52").Select
Range("A13").Activate
Selection.Locked = False
Selection.FormulaHidden = False
Range("G2:I2").Select
Selection.Interior.ColorIndex = xlNone
ActiveSheet.Protect DrawingObjects:=False, contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowDeletingColumns:=True, AllowDeletingRows:=True, AllowSorting _
:=True, AllowFiltering:=True, AllowUsingPivotTables:=True

'affichage des onglets masqués'
Sheets("Notifications vehicules & PCSI").Visible = True
Sheets("Recap Activité du Poste & Valid").Visible = True
Sheets("Inventaire Armoire outils").Visible = True
Sheets("Page de garde").Select


'affichage de l'onglet "Verif PCex" lorsque la valeur "Vendredi" est presente dans la case D2 de l'onglet "Page de garde"
If Sheets("Page de Garde").Range("D2").Text = "Vendredi" Then
Sheets("Verif Pcex").Visible = True


ActiveSheet.Protect Password:="azerty"

End If

End With
End Sub