Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 pour un planning mensuel masquer les dernières colonnes en fonction de l'année

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 !

MomoooHHH

XLDnaute Nouveau
Bonjour à tous !!

J'aurai aimé avoir un coup de main étant assez novice dans le domaine d'excel mais ayant quand même certaines bases,
pour pouvoir masquer les colonnes contenant les jours 29/30/31 en fonction du mois et de l'année en cours sur un planning, si certains ont l'envie de me trouver les solutions je vous partagerais le planning en question je vous en remercie énormément d'avance.
 
Solution
Bonjour à tous
Je continu à dire que
VB:
Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E1")) Is Nothing Then _
    Sheets("février").Columns("BM:BN").Hidden = Day(DateSerial(Range("E1"), 3, 0)) < 29
End Sub
A mettre dans le module de la feuille Janvier

cordialement
Si j'ai bien compris, vous avez 12 feuilles, et vous voulez que si vous changer l'année en Janvier tout ce met à jour ?
Si c'est ça il y a plus simple. Il suffit de mettre tout à jour lorsque vous changer l'année en Janvier. La macro ne s'exécutera ainsi qu'une fois par an .
Voir PJ avec Worksheet_Change unique sur la feuille de Janvier.
 

Pièces jointes

Dans ma PJ ou dans votre fichier ?
Car mon fichier ne donne pas d'erreur sur mon PC.
Si c'est sur votre fichier,alors fournissez un fichier plus représentatif.
J'ai trouvé le soucis c'est que j'ai 2 onglets "Bilan" et "Suivi" dans le classeur qui eux servent à faire certains totaux( d'ou la fonction couleur rattacher dans le tableau à droite) pour "Bilan", et "Suivi" rattacher à d'autres classeur.
 
Dernière édition:
Bonjour à tous
Je continu à dire que
VB:
Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E1")) Is Nothing Then _
    Sheets("février").Columns("BM:BN").Hidden = Day(DateSerial(Range("E1"), 3, 0)) < 29
End Sub
A mettre dans le module de la feuille Janvier

cordialement
 
Dernière édition:
C'est parfait avec votre solution merci à vous de m'avoir aider sur ce problème !!! Passez de bonnes fêtes !!
 
- 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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…