Masquer une feuille si cellules vides

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

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 ?

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

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

Merci pour votre aide.

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

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

Cordialement.

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.

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