XL 2013 boucle pour masquer des feuilles si cellule vide

[Lhomheureux]

Bonjour à tous.
J'aurais besoin de votre aide en vue de coder une ligne en VBA excel.
1-) Le code dont j'ai besoin est une boucle qui permet lorsqu'on arrive sur une feuille dont la cellule A5 est vide que cette feuille soit masqué, et on passe à la feuille suivante.

Merci pour votre intérêt à cette préoccupation.

 

[pierrejean]

Bonjour heureux homme
A tester:

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

 

[Robert]

Bonjour Lhomheureux, bonjour le forum,

Essaie comme ça :

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

 

[Hasco]

bonjour,

Une possibilité :

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

 

[pierrejean]

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

 

[Robert]

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

 

[Lhomheureux]

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