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

Résolu

Chateaudax05 Messages postés 13 Statut Membre -
Chateaudax05 Messages postés 13 Statut Membre - 15 sept. 2015 à 18:27

Bonjour,

Je travaille sur un fichier Excel de plusieurs feuilles. Dans la cellule d'une de ces feuilles, j'ai inséré une liste déroulante (2 données uniquement dans cette liste), et en fonction du choix dans la liste je souhaite masquer une feuille (Choix 1 = masquer feuille 13 / Choix 2 = masquer feuille 12).
Je pense ne pas utiliser la bonne formule de Private Sub sur VBA.
Quelqu'un peut m'aider ?
Merci d'avance !

Afficher la suite

1 réponse

Réponse 1 / 1
Gyrus Messages postés 3360 Statut Membre 526
Bonjour,

Essaie avec cette procédure placée dans le module de la feuille qui contient la liste déroulante
```
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$A$1" Then
        Application.ScreenUpdating = False
        Select Case Target.Value
        Case "Choix 1"
            Sheets("Feuil12").Visible = True
            Sheets("Feuil13").Visible = False
        Case "Choix 2"
            Sheets("Feuil12").Visible = False
            Sheets("Feuil13").Visible = True
        End Select
    End If
End Sub
```
A+
0
1. Chateaudax05 Messages postés 13 Statut Membre
  
  Bonjour Gyrus et merci de ta réponse. J'ai copié cette procédure mais il ne se passe rien.
  
  0
2. Gyrus Messages postés 3360 Statut Membre 526 > Chateaudax05 Messages postés 13 Statut Membre
  
  Il faut bien sûr adapter le procédure à ton cas.
  Est-ce que la liste déroulante est en A1 ?
  Est-ce que la première feuille à masquer a bien le nom "Feuil12" ?
  Est-ce que la deuxième feuille à masquer a bien le nom "Feuil13" ?
  Est-ce que le premier élément de la liste est bien "Choix 1" ?
  Est-ce que le deuxième élément de la liste est bien "Choix 2" ?
  As-tu bien placé le code dans dans le module de la feuille qui contient la liste déroulante ?
  
  Dans ce type de questionnement, tu as tout intérêt de joindre un exemple de classeur afin d'obtenir une proposition "sur mesure".
  Si besoin, tu peux joindre un fichier en utilisant https://www.cjoint.com/
  
  A+
  
  0
3. Chateaudax05 Messages postés 13 Statut Membre > Gyrus Messages postés 3360 Statut Membre
  
  Ma liste déroulante est en B18 et j'avais changé cet élément dans la procédure. J'avais également adapté le nom des feuilles et des éléments de la liste déroulante. Et ça ne marche pas.
  Mon cerveau mouline en même temps que je te réponds et là je me suis dit "tiens et si je fermais et ré-ouvrais mon fichier".
  Et ça marche .......
  
  0
4. Chateaudax05 Messages postés 13 Statut Membre > Gyrus Messages postés 3360 Statut Membre
  
  Merci infiniment !
  à+
  
  0
5. Chateaudax05 Messages postés 13 Statut Membre > Gyrus Messages postés 3360 Statut Membre
  
  OUPS.... une idée me vient ! Même question mais les choix ne se font pas par liste déroulante mais le choix serait le résultat d'une rechercheV
  Pour être plus précise, au lieu d'avoir une liste déroulante (choix 1 / Choix 2), Choix 1 ou Choix 2 s'incrémentent de façon automatique via une rechercheV
  
  0

Newsletters