XL 2013 Macro afficher une page masquée

[Bigpouss]

Bonjour,

je n'utilise que tres peu les macros du coup je me retrouve un petit peu bloqué.
Je possède un classeur avec plusieurs onglet. Je souhaiterai, lorsque je remplis une case du premier onglet, avec la valeur "vendredi", que cela déclenche la possibilité d'afficher un onglet que j'aurai préalablement masqué.

D'avance merci,

Le Pouss

 

[max.lander]

Salut,

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

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Sheets("nom de la page").Range("A1").Text = "Vendredi" Then


Sheets ("nom de la page à masquer").Visible = True

End If

End If


End Sub

Edit: suite commentaire de jecherche

 

[jecherche]

Bonjour,

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


jecherche

 

[herve62]

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 !

 

[max.lander]

Effectivement, je viens de modifier

Merci jecherche

 

[Staple1600]

Bonsoir à tous

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

Private Sub Worksheet_Change(ByVal Robinson As Range)
If Robinson.Address = "$A$1" Then
Sheets(2).Visible = (UCase(Robinson) = "VENDREDI")
End If
End Sub

Et la version sans humour

Private Sub Worksheet_Change(ByVal T As Range)
If T.Address = "$A$1" Then
Sheets(2).Visible = (UCase(T) = "VENDREDI")
End If
End Sub

 

[max.lander]

C'est beau bravo Staple1600!

 

[JCGL]

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

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

Private Sub Worksheet_Activate()
For Each F In Worksheets
If F.Name <> "Accueil" Then F.Visible = False
Next F
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Sheets(ActiveCell.Value).Visible = True
End Sub

A+ à tous

 

[herve62]

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)

 

[Bigpouss]

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

 

[Bigpouss]

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,B510,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