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

[MomoooHHH]

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.

 

[sylvanu]

Vous êtes sur ?

 

[MomoooHHH]

Vous êtes sur ?
Regarde la pièce jointe 1125668

oui si vous gardez le mois de février en 2022 vous êtes à 28 jours, mais si vous mettez 2024 il ne réaffiche pas le 29

 

[sylvanu]

Alors le mieux est de réactualiser à la sélection de page.
J'ai mis en Février E1 : =Janvier!E1

 

[MomoooHHH]

Alors le mieux est de réactualiser à la sélection de page.
J'ai mis en Février E1 : =Janvier!E1

Ah super !!! C'est parfait désormais encore merci d'avoir pris le temps !! Je saurais à qui m'adresser en cas de problème !
Je vous souhaite de très bonnes fêtes à vous !!

 

[sylvanu]

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.

 

[MomoooHHH]

J'ai un message d'erreur d'execution '1004'

 

[sylvanu]

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.

 

[MomoooHHH]

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.

 

[Efgé]

Bonjour à tous
Je continu à dire que

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

 

[MomoooHHH]

Bonjour à tous
Je continu à dire que

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

C'est parfait avec votre solution merci à vous de m'avoir aider sur ce problème !!! Passez de bonnes fêtes !!