(RESOLU)masquer et afficher selon une valeurs

[chaelie2015]

Forum Bonjour
Je souhaite masquer et afficher deux feuilles feuil1 et feuil2 selon la valeur de K19 de la feuille3
Si K19 (de la feuille3) = 1 alors afficher la feuille1 et masquer (very hiden) la feuille2
Si K19 (de la feuille3) = 2 alors afficher la feuille2 et masquer(very hiden) la feuille1
Si K19 est vide masquer les deux feuille 1 et 2(very hiden)
Salutations

 

[DoubleZero]

Re : masquer et afficher selon une valeurs

Bonjour, chaelie2015, le Forum,

Comme ceci ?

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
    If c.Address = "$K$19" Then
        Select Case c
        Case 1: Sheets("Feuil1").Visible = -1: Sheets("Feuil2").Visible = 2
        Case 2: Sheets("Feuil1").Visible = 2: Sheets("Feuil2").Visible = -1
        Case Empty: Sheets("Feuil1").Visible = 2: Sheets("Feuil2").Visible = 2
        End Select
    End If
End Sub

A bientôt

P. S. : Bonjour, Cpk

 

[CPk]

Re : masquer et afficher selon une valeurs

Bonjour, un petit exemple

Pour masquer

Sheets("Feuil1").Visible = xlSheetVeryHidden

Pour afficher

Sheets("Feuil1").Visible = xlSheetVisible

 

[chaelie2015]

Re : masquer et afficher selon une valeurs

Bonjour DOUBLE ZERO,cpk
super, merci pour les réponses
Problème est résolut
salutations