XL 2013 boucle pour masquer des feuilles si cellule vide

pierrejean

XLDnaute Barbatruc

• 31 Mars 2020

• #2

Bonjour heureux homme
A tester:

VB:

For Each sh In Sheets
 If sh.Range("A5") = "" Then
   On Error Resume Next
     sh.Visible = False
   On Error GoTo 0
 End If
Next

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 31 Mars 2020

• #3

Bonjour Lhomheureux, bonjour le forum,

Essaie comme ça :

VB:

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)

For Each O In Worksheets 'boucle sur tous les onglets O du classeur
    O.Visible = O.Range("A5").Value <> "" 'O est visible si A5 est différent du vide
Next O 'prochain onglet de la boucle
End Sub

[Édition]
Bonjour PierreJean, nos post se sont croisés... au fait, on dit heureux / homme ou heureuzhomme 🙂

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 31 Mars 2020

• #4

bonjour,

Une possibilité :

VB:

Sub MasqueFeuilles()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Visible = Not IsEmpty(ws.Cells(5, 1))
    Next
End Sub

cordialement

[Edit] Bonjour Pierre-Jean, Robert

 

Vote positif 0 Vote négatif

Solution

pierrejean

XLDnaute Barbatruc

• 31 Mars 2020

• #5

Salut Robert
Bonjour Roblochon
Le on error resume next si aucune feuille n'a un A5 rempli

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 31 Mars 2020

• #6

Oeuf Corse ! Comme disent les poules d'Ajaccio...

 

Vote positif 0 Vote négatif

L

Lhomheureux

XLDnaute Nouveau

• 31 Mars 2020

• #7

MERCI à tous pour votre réactivité. Vos codes fonctionnent impec. J'ai l'embarras du choix 🙂🙂.

 

Vote positif 0 Vote négatif