XL 2013 Masquer des lignes et feuilles selon condition

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

TAHANI

XLDnaute Nouveau
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"

voila exemple du Macro mais je sais pas comment ça marche.
Sub AfficherTouteFeuilles()
Application.ScreenUpdating = False
i = 0
For Each sh In ThisWorkbook.Sheets
sh.Visible = True
i = i + 1
ThisWorkbook.Sheets("Récap").Rows(i & ":" & i).EntireRow.Hidden = False

Next sh

ThisWorkbook.Sheets("Récap").Activate

Application.ScreenUpdating = True

End Sub


Sub Masquer()

Application.ScreenUpdating = False

NbLign = ThisWorkbook.Sheets("Récap").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To NbLign

If ThisWorkbook.Sheets("Récap").Range("I" & i).Value = 0 Then
ThisWorkbook.Sheets(ThisWorkbook.Sheets("Récap").Range("A" & i).Value).Visible = False
ThisWorkbook.Sheets("Récap").Rows(i & ":" & i).EntireRow.Hidden = True
End If

Next i

ThisWorkbook.Sheets("Récap").Activate

Application.ScreenUpdating = True

End Sub



Merci beaucoup
NB : C'est très urgent

Ci-joint le tableau Récap.
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
282
Réponses
5
Affichages
241
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
481
Réponses
7
Affichages
212
Retour