Masquer une feuille si cellules vides
Résolu/Fermé
Mowkey
Messages postés
17
Date d'inscription
dimanche 18 novembre 2012
Statut
Membre
Dernière intervention
24 octobre 2016
-
24 mars 2015 à 15:59
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 - 27 mars 2015 à 16:04
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 - 27 mars 2015 à 16:04
A voir également:
- Masquer une feuille si cellules vides
- Masquer conversation whatsapp - Guide
- Excel additionner des cellules - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Supprimer une feuille word - Guide
- Verrouiller cellules excel - Guide
8 réponses
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
24 mars 2015 à 17:11
24 mars 2015 à 17:11
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
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)
Cdlmnt
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
Mowkey
Messages postés
17
Date d'inscription
dimanche 18 novembre 2012
Statut
Membre
Dernière intervention
24 octobre 2016
26 mars 2015 à 14:16
26 mars 2015 à 14:16
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 ?
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 ?
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
26 mars 2015 à 14:43
26 mars 2015 à 14:43
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
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
Mowkey
Messages postés
17
Date d'inscription
dimanche 18 novembre 2012
Statut
Membre
Dernière intervention
24 octobre 2016
26 mars 2015 à 15:17
26 mars 2015 à 15:17
Ok, voilà le lien Cjoint :
https://www.cjoint.com/?3CApDejCoag
Merci pour votre aide.
https://www.cjoint.com/?3CApDejCoag
Merci pour votre aide.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
26 mars 2015 à 15:38
26 mars 2015 à 15:38
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
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
Mowkey
Messages postés
17
Date d'inscription
dimanche 18 novembre 2012
Statut
Membre
Dernière intervention
24 octobre 2016
26 mars 2015 à 15:46
26 mars 2015 à 15:46
Ça fonctionne, c'est parfait !
Merci beaucoup Via55 !
Cordialement.
Merci beaucoup Via55 !
Cordialement.
Mowkey
Messages postés
17
Date d'inscription
dimanche 18 novembre 2012
Statut
Membre
Dernière intervention
24 octobre 2016
27 mars 2015 à 10:58
27 mars 2015 à 10:58
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.
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.
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
27 mars 2015 à 16:04
27 mars 2015 à 16:04
Bonjour
Puisque les feuilles se suivent tu peux procéder par une boucle pour masquer les feuilles dans Workbook_Open
Procéder de même dans la macro de démasquage avec True à la place de False
Cdlmnt
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