Bouton masquer lignes et feuilles sous condition

Bonjour,

J'ai un tableau récapitulatif où chaque ligne correspond à un onglet. J'aurais besoin d'aide pour créer un bouton qui me permette de masquer une ligne et l'onglet qui porte le même nom, si la valeur de la colonne F correspondante = 0. Je souhaiterais avoir un autre bouton qui démasque.

Par exemple, dans le tableau que je joins, la cellule F5=0, je veux donc masquer la ligne 5 et l'onglet "60613"

Par ailleurs, mon fichier fait 979 Ko ! Il y a pas mal d'onglets, mais ça me paraît vraiment très lourd (surtout pour un tableau dans lequel je n'ai mis encore aucune donnée). Est-ce normal ?

Aurélien.

Bonjour

Voci un code qui devrais t'aider

Affecte ces codes aux bouttons que tu souhaites

Sub masque()

For Each i In Sheets("RECAP").UsedRange.Columns(1).Rows

If i.Offset(0, 5) = 0 Then

On Error Resume Next

Sheets(CStr(i)).Visible = False

End If

Next

End Sub

Sub affiche()

For Each i In Sheets

On Error Resume Next

i.Visible = True

Next

End Sub

Bonjour dsou,

Merci pour la macro. Ca fonctionne pour les onglets. Mais comment puis-je faire pour que les lignes dont la valeur en colonne A = nom de l'onglet soient masquées également ?

Par avance, merci de ton aide.

Aurélien.

Bonjour

Sub masque()
For Each i In Sheets("RECAP").UsedRange.Columns(1).Rows
If i.Offset(0, 5) = 0 Then
On Error Resume Next
Sheets(CStr(i)).Visible = False
End If
Next
For Each Ligne In ActiveSheet.UsedRange.Rows
If Ligne.Cells(1, 6).Value = Empty Then
'si la cellule de la colonne A est vide, la ligne est masquée
Ligne.EntireRow.Hidden = True
End If
Next
End Sub

et pour afficher de nouveau

Sub affiche()
For Each i In Sheets
On Error Resume Next
i.Visible = True
Next
[A:IV].EntireRow.Hidden = False
Cells(1, 1).Select
End Sub

Cordialement

Merci Amadeus, c'est tout à fait ce que je souhaitais. Et encore merci dsou.

Aurélien.