Masquer et afficher feuille sur événement

Jidé · 29 Octobre 2009

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 · 29 Octobre 2009

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 :

Code:

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 · 29 Octobre 2009

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 :

Code:

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é · 29 Octobre 2009

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+

Masquer et afficher feuille sur événement

Jidé

Guest

Pierrot93

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

Jidé

Guest

Discussions similaires

Masquer et afficher feuille sur événement

Jidé

Guest

Pierrot93

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

Jidé

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency