Masquer et afficher feuille sur événement

[Jidé]

Bonjour,

Je n'ai pas su trouver dans le forum la réponse au problème trivial (AMHA) sur lequel je coince. Et pourtant elle doit y...être.
Classeur d'une quinzaine de feuilles. Cellule de saisie dans une feuille à OUI ou NON.
Objectif : Que deux autre feuilles soient affichées si valeur de la cellule à OUI, et masquées si valeur de la celule à NON. Et que rien ne se passe pour toutes les autres valeurs (intempestives).
Merci pour votre aide.

 

[Pierrot93]

Re : Masquer et afficher feuille sur événement

Bonjour Jidé

essaye le code ci-dessous, à placer dans le module de la feuille concernée, controle la cellule A1 :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    If Target.Value = "OUI" Then
        Sheets("Feuille2").Visible = xlSheetVisible
        Sheets("Feuille3").Visible = xlSheetVisible
        ElseIf Target.Value = "NON" Then
            Sheets("Feuille2").Visible = xlSheetHidden
            Sheets("Feuille3").Visible = xlSheetHidden
    End If
End If
End Sub

bon après midi
@+

 

[Papou-net]

Re : Masquer et afficher feuille sur événement

Bonjour Jidé,

un exemple de code à insérer dans l'événement Change de ta feuille de calcul :

Select Case Range(A1").Value
  Case "OUI"
  Sheets("Feuil1.Visible)=True
  Sheets("Feuil2.Visible)=True
  Case "NON"
  Sheets("Feuil1.Visible)=False
  Sheets("Feuil2.Visible)=False
End Select

Remplaces "A1" par l'adresse de ta cellule OUI/NON
Remplaces "Feuil1" et "Feuil2" par les noms de tes feuilles à masquer/afficher.
Espérant avoir répondu.

Cordialement.

Grillé par Pierrot93
Bonne journée Pierrot.

 

[Jidé]

Re : Masquer et afficher feuille sur événement

Merci à Pierrot93 et à Papou-net.
Réponses rapides et ça...fonctionne.
Bonne soirée à tous les deux.

A+