Masquer des onglets suivant le contenu d'une cellule

gcas · 23 Août 2012

Bonjour

Je souhaiterais masquer/afficher des onglets on fonction de la valeur de A1 (feuil1) :
- Si A1=1 : Afficher feuil2 et afficher feuil3
- Si A1=2 : Afficher feuil2 et caher feuil3
- Si A1=3 : Cacher feuil2 et caher feuil3

Merci d'avance pour votre aide et bonne après-midi

phlaurent55 · 23 Août 2012

Re : Masquer des onglets suivant le contenu d'une cellule

Bonjour gcas,

ton fichier en retour

à+
Philippe

Dull · 23 Août 2012

Re : Masquer des onglets suivant le contenu d'une cellule

Salut gcas, le Forum

Essaye ce code dans le Module de la Feuil1

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [A1]) Is Nothing Then
Select Case Target.Value
Case Is = 1: Feuil2.Visible = xlSheetVisible: Feuil3.Visible = xlSheetVisible
Case Is = 2: Feuil2.Visible = xlSheetVisible: Feuil3.Visible = xlSheetHidden
Case Is = 3: Feuil2.Visible = xlSheetHidden: Feuil3.Visible = xlSheetHidden
End Select
End If
End Sub

EDITION: Salut Philippe

Bonne Journée

Masquer des onglets suivant le contenu d'une cellule

gcas

XLDnaute Nouveau

Pièces jointes

phlaurent55

Nous a quittés en 2020

Pièces jointes

Dull

XLDnaute Barbatruc

Discussions similaires