XL 2013 Masquer ligne et feuille selon condition

TAHANI · 19 Décembre 2016

Bonjour,

J'ai un tableau Récap et des feuilles correspond à chaque cellule dans la colonne A et chaque ligne correspond à un onglet. J'aurais besoin d'aide pour créer un bouton qui me permette de masquer une ligne et la une feuille qui porte le même nom, si la valeur de la colonne I correspondante = 0. Je souhaiterais avoir un autre bouton qui démasque.

Par exemple, dans le tableau que je joins, la cellule F13=0, je veux donc masquer la ligne 13 et la feuille "A.1"

Merci beaucoup
NB : C'est très urgent

Ci-joint le tableau Récap.

Hieu · 19 Décembre 2016

Salut,

Pour masquer :

VB:

Sub masquer()
Application.ScreenUpdating = False
For i = 2 To 9
    nom = Range("a" & i)
If Range("i" & i) = 0 Then
    Rows(i).EntireRow.Hidden = True
    Sheets(nom).Visible = False
End If
Next i
End Sub

Pour afficher :

VB:

Sub afficher()
Application.ScreenUpdating = False
For Each r In Rows("2:9"): r.Hidden = False: Next r
For Each s In Sheets: s.Visible = True: Next s
End Sub

++

XL 2013 Masquer ligne et feuille selon condition

TAHANI

XLDnaute Nouveau

Pièces jointes

Hieu

XLDnaute Impliqué

Discussions similaires