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

MomoooHHH · 24 Décembre 2021

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.

Efgé · 25 Décembre 2021

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

sylvanu · 24 Décembre 2021

Vous êtes sur ?

MomoooHHH · 24 Décembre 2021

sylvanu à dit:
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 · 24 Décembre 2021

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

MomoooHHH · 24 Décembre 2021

sylvanu à dit:
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 · 24 Décembre 2021

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 · 24 Décembre 2021

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

sylvanu · 24 Décembre 2021

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 · 25 Décembre 2021

sylvanu à dit:
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é · 25 Décembre 2021

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

MomoooHHH · 26 Décembre 2021

Efgé à dit:
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

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

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

MomoooHHH

XLDnaute Nouveau

Efgé

sylvanu

XLDnaute Barbatruc

MomoooHHH

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

MomoooHHH

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

MomoooHHH

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

MomoooHHH

XLDnaute Nouveau

Efgé

XLDnaute Barbatruc

MomoooHHH

XLDnaute Nouveau

Discussions similaires