Masquer une feuille en fonction d'une liste déroulante

Résolu
JannineNOLAM Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
JannineNOLAM Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je travaille sur un fichier Excel de plusieurs feuilles. Dans la cellule Q12 de la feuille 1, j'ai inséré une liste déroulante, et en fonction du choix dans la liste je souhaite masquer ou afficher une feuille (si oui = masquer feuille 2 / Si non = affiche feuille 2).
Je pense ne pas utiliser la bonne formule de Private Sub sur VBA.
Pouvez-vous m'aider, s'il vous plaît ?

Merci d'avance !
A voir également:

2 réponses

Réponse 1 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

Faire Alt F11 sur la feuille1 pour accéder à l'éditeur et mettre ce code qui se déclenchera à chaque changement: 

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("Q12")) Is Nothing Then
  If Target.Value = "OUI" Then
   Sheets("Feuil2").Visible = False
  Else
  Sheets("Feuil2").Visible = True
  End If
End If
End Sub


Voilà
0
Réponse 2 / 2
JannineNOLAM Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

J'ai essayé votre code, mais il n'a pas marché. Cependant j'ai trouvé ce code qui a marché pour moi : 


Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Nom As Variant
Nom = Range("Q12")
    
    If Not Intersect(Target, Range("Q12")) Is Nothing Then
        Select Case Nom
            Case Is = "Oui"
                Feuil2.Visible = True
            Case Is = "Non"
                Feuil2.Visible = False
        End Select
    End If
End Sub


Merci pour votre aide.
0

Discussions similaires

Remplir une cellule (texte) en fonction d'une autre (texte).
SOMUM -
SOMUM -

4 réponses
Feuille de score belote
nulleeninfo -
brucine -

7 réponses