XL 2013 boucle pour masquer des feuilles si cellule vide

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 !

Lhomheureux

XLDnaute Nouveau
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.
 
Solution
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
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 🙂
 
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
 
- 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
71
Réponses
17
Affichages
294
Réponses
3
Affichages
186
Retour