(RESOLU)masquer et afficher selon une valeurs

chaelie2015 · 28 Février 2016

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 · 28 Février 2016

Re : masquer et afficher selon une valeurs

Bonjour, chaelie2015, le Forum,

Comme ceci ?

Code:

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 · 28 Février 2016

Re : masquer et afficher selon une valeurs

Bonjour, un petit exemple

Pour masquer

Code:

Sheets("Feuil1").Visible = xlSheetVeryHidden

Pour afficher

Code:

Sheets("Feuil1").Visible = xlSheetVisible

chaelie2015 · 29 Février 2016

Re : masquer et afficher selon une valeurs

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

(RESOLU)masquer et afficher selon une valeurs

chaelie2015

XLDnaute Accro

DoubleZero

XLDnaute Barbatruc

CPk

XLDnaute Impliqué

chaelie2015

XLDnaute Accro

Discussions similaires

(RESOLU)masquer et afficher selon une valeurs

chaelie2015

XLDnaute Accro

DoubleZero

XLDnaute Barbatruc

CPk

XLDnaute Impliqué

chaelie2015

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency