Afficher / masquer feuille(s) selon cellule Résolu

Question

Bonjour, 
Je débute sur Vba, j'ai un petit problème sur mon code... 
Je voudrais selon la valeur d'une cellule D3 (OUI ou NON ou vide) :
- Afficher la feuil1 si OUI 
- Afficher la feuil2 si NON 
- Afficher les 2 feuilles si la cellule est vide.

Cela fonctionne parfaitement si j'enlève la première partie ou la deuxième partie mais je n'arrive pas à combiner les 2 parties. Le code est inséré dans la feuille de menu.

Private Sub Worksheet_Change(ByVal R As Range)

'1ère partie
      If Intersect(R, [D3]) Is Nothing Then Exit Sub
  Sheets("Feuil1").Visible = R = "OUI":
  
      If Intersect(R, [D3]) Is Nothing Then Exit Sub
  Sheets("Feuil2").Visible = R = "NON":

'2ème partie
  If Intersect(R, [D3]) Is Nothing Then Exit Sub
Sheets("Feuil1").Visible = R = "": Sheets("Feuil2").Visible = R = "":
End Sub


Merci pour votre aide !

Bonne journée

cs_Le Pivert · Answer

Bonjour,

comme ceci:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D3")) Is Nothing Then
Select Case Target.Value
Case Is = "OUI"
Worksheets("Feuil1").Visible = True
Worksheets("Feuil2").Visible = False
Case Is = "NON"
Worksheets("Feuil1").Visible = False
Worksheets("Feuil2").Visible = True
Case Else
Worksheets("Feuil1").Visible = True
Worksheets("Feuil2").Visible = True
End Select
End If
End Sub
 

Voilà

Belinos · Answer

Merci beaucoup ça fonctionne!! 
Petite question : Est-il possible que l'action Visible ou non visible se fasse automatiquement et non par le biais d'une case à sélectionner.

Afficher / masquer feuille(s) selon cellule

2 réponses

Votre réponse

Discussions similaires

Newsletters