XL 2013 cacher une feuille de calcul en fonction du contenu d'une cellule

M

mrdo

XLDnaute Nouveau
Bonjour,

J'aimerai cacher des feuilles en fonction de:

si valeur cellule S3(feuille1) est <à valeur cellule P2 de l'avant avant dernière feuille = cacher l'avant avant dernière feuille
si valeur cellule S3(feuille1) est <à valeur cellule P2 de l'avant dernière feuille = cacher l'avant dernière feuille
si valeur cellule S3(feuille1) est <à valeur cellule P2 de la dernière feuille = cacher la dernière feuille

en une seule formule à mettre dans la page de code de feuille1 ?

ou l'inverse

si valeur P2 de l'avant avant dernière feuille >à S3 feuille1 = cacher l'avant avant dernière feuille
si valeur P2 de l'avant dernière feuille >à S3 feuille1 = cacher l'avant dernière feuille
si valeur P2 de la dernière feuille >à S3 feuille1 = cacher de la dernière feuille

à mettre dans la page de code de chaque feuille concernée

ceci pour cacher les onglets en fonction du nombre de jours dans le mois
31 onglets pour 31 jours, et donc cacher les 3 derniers onglets pour le mois de 28 jrs, les 2 derniers pour 29 jrs, le dernier pour 30 jrs et aucun pour 31 jrs
le nom de chaque onglet change chaque mois (lundi 1, mardi 2, mercredi 3..., c'est pourquoi je ne peux pas nommer la feuille dans la formule.

est-ce possible?
 
Solution
sylvanu
Re,
Pas bien sur d'avoir tout compris.
Je ne comprends pas le "S3(feuille1)", je pense plutôt à G2.
Un essai en PJ.
Quand on modifie G2 de PAGE alors toutes les feuilles dont P2 est supérieur sont masquées.
Par ex si en G2 je met 28 alors les feuilles qui contiennent 29 à 31 sont masquées.
Avec dans PAGE :
VB: 
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [G2]) Is Nothing Then
        Application.ScreenUpdating = False
        For Each F In Worksheets
            If F.Name <> "PAGE" And F.Name <> "PLANNING PROD" Then
                If Sheets(F.Name).[P2] > Target Then
                    Sheets(F.Name).Visible = False
                Else...
Trier par date Trier par votes

Discussions similaires

M
  • Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
223
MBEPID
M
D
  • Question
Microsoft 365 VBA pour répéter - cacher 2 colonnes consécutives selon la valeur d'une cellule.
Réponses
4
Affichages
363
Didjo
D
Z
  • Question
Microsoft 365 Rendre visible un onglet en fonction du contenu d'une cellule
Réponses
2
Affichages
118
zorol
Z
zozo
  • Question
XL 2016 Convertir Fonction Excel en VBA
2
Réponses
16
Affichages
990
Dranreb
Dranreb
T
  • Question
Microsoft 365 Cacher / détailler certaines colonnes dans certains onglets avec mot de passe
Réponses
6
Affichages
639
ThierryP
T
N
  • Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
444
Nel'
N
F
  • Résolu(e)
Microsoft 365 Donner a une cellule le nom de la feuille
Réponses
5
Affichages
430
Faroyo
F
B
  • Question
XL 2016 Ramener une plage de données en fonction d'une cellule
Réponses
11
Affichages
364
JHA
J
W
  • Question
XL 2019 Récupérer le nom d'une feuille où se trouve une valeur précise
Réponses
5
Affichages
403
Winnylourson
W
R
  • Question
XL pour MAC Garder une valeur en mémoire
Réponses
8
Affichages
344
rtlv17
R

Membres actuellement en ligne

Aucun membre en ligne actuellement.
0 membres et 55 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 097
Messages
2 116 186
Membres
112 679
dernier inscrit
Yupanki