Afficher / masquer feuille(s) selon cellule
Résolu
Belinos
Messages postés
15
Statut
Membre
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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.
Merci pour votre aide !
Bonne journée
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
A voir également:
- Afficher / masquer feuille(s) selon cellule
- Verrouiller cellule excel sans verrouiller la feuille - Guide
- Bruler feuille de laurier - Guide
- Excel cellule couleur si condition texte - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Feuille a5 - Guide
2 réponses
Bonjour,
comme ceci:
Voilà
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à