Masquer une feuille si cellules vides [Résolu/Fermé]

Signaler
Messages postés
17
Date d'inscription
dimanche 18 novembre 2012
Statut
Membre
Dernière intervention
24 octobre 2016
-
Messages postés
12365
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
5 juillet 2020
-
Bonjour,
Je vous soumets mon problème :

J'ai un classeur avec 3 feuilles.
J'aimerais que la troisième feuille soit masqué si 4 cellules de la deuxième feuille ne sont pas remplies.
Je sais que c'est possible, mais je n'arrive pas savoir comment.

Merci pour votre aide !

Mowkey

8 réponses

Messages postés
12365
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
5 juillet 2020
1 917
Bonsoir

Possible par macro qui s'exécute à l'ouverture du classeur
Macro à mettre dans This workbook de l'editeur VBA (ALT+F11 pour ouvrir éditeur) en changeant les reférences des cellules qui doivent être vides
Private Sub Workbook_Open()
With Sheets(2)
If .Range("A1") = "" And .Range("B3") = "" And .Range("B5") = "" And .Range("C2") = "" Then
Sheets(3).Visible = False
End If
End With
End Sub


Et pour demasquer le feuille3 dès que les 4 cellules sont remplies, macro à mettre dans le Worsheet de Feuille 2 (modifier les references ici aussi)
Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets(2)
If .Range("A1") <> "" And .Range("B3") <> "" And .Range("B5") <> "" And .Range("C2") <> "" Then
Sheets(3).Visible = True
End If
End With
End Sub


Cdlmnt
Messages postés
17
Date d'inscription
dimanche 18 novembre 2012
Statut
Membre
Dernière intervention
24 octobre 2016

Bonjour,
Merci pour votre réponse !

Cependant, le résultat est que lorsque j'ouvre mon document, en effet la feuille 3 est masquée, mais elle n'apparait pas lorsque les 4 cellules de la feuille 2 sont remplies.

Pourtant, j'ai bien remplacé "A1", "B3", "B5", "C2" par les 4 cellules en question de la feuille 2.

Dois-je modifier "Sheets(2)" et "Sheets(3)" dans le code ?
Messages postés
12365
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
5 juillet 2020
1 917
Bonjour

Si la macro qui cache la feuille fonctionne c'est que ce sont bien les bonnes feuilles et les bonnes cellules et celle qui démasque devrait fonctionner aussi
Est ce que tu l'as bien mise au bon endroit ?
Ouvrir Editeur VBA Clic droit sur Feuil2 dans l'arborescence à gauche et Code mettre la macro 2 dans la page blanche

Si ça ne fonctionne toujours pas postes un exemple de ton fichier sur cjoint.com et reviens indiquer le lien fourni, je regarderais

Cdlmnt
Messages postés
17
Date d'inscription
dimanche 18 novembre 2012
Statut
Membre
Dernière intervention
24 octobre 2016

Ok, voilà le lien Cjoint :
https://www.cjoint.com/?3CApDejCoag

Merci pour votre aide.
Messages postés
12365
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
5 juillet 2020
1 917
Re,

La macro de demasquage n'est pas reliée à la bonne feuille, elle est dans le worksheet de la feuille Eval1 alors qu'elle doit être dans celui de la Feuille Synthese (Selectionner Synthèse dans l'arborescence à gauche de l'éditeur et coller la macro)

(L'indication Sheets(2) dans la macro ne fait pas référence à la Feuille 2 mais à la 2eme feuille dans l'ordre des onglets)

Cdlmnt
Messages postés
17
Date d'inscription
dimanche 18 novembre 2012
Statut
Membre
Dernière intervention
24 octobre 2016

Ça fonctionne, c'est parfait !
Merci beaucoup Via55 !

Cordialement.
Messages postés
17
Date d'inscription
dimanche 18 novembre 2012
Statut
Membre
Dernière intervention
24 octobre 2016

Bonjour,

Je me permets de rajouter une question :
J'aimerais qu'en + de la feuille 3, que les feuilles 4, 5, 6, 7 soit masquées si les 4 cellules de la deuxième feuille ne sont pas remplies.

J'ai tenté plusieurs modif' dans le worksheet, mais ça bug.

Cordialement.
Messages postés
12365
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
5 juillet 2020
1 917
Bonjour

Puisque les feuilles se suivent tu peux procéder par une boucle pour masquer les feuilles dans Workbook_Open
Private Sub Workbook_Open()
With Sheets(2)
If .Range("A1") = "" And .Range("B3") = "" And .Range("B5") = "" And .Range("C2") = "" Then
For n=3 to 7
Sheets(n).Visible = False
Next
End If
End With
End Sub


Procéder de même dans la macro de démasquage avec True à la place de False

Cdlmnt