M Moran XLDnaute Nouveau 2 Août 2022 #1 Bonjour à tous, Voici mon problème. J'ai créer un planning mensuel et je souhaiterais masquer les jours qui ne concernent pas le mois en cours. Par exemple, pour le mois d'avril, masquer le 1er mai. Merci pour votre aide et bel été ! Pièces jointes PLANNING.xlsm 21.6 KB · Affichages: 6
Bonjour à tous, Voici mon problème. J'ai créer un planning mensuel et je souhaiterais masquer les jours qui ne concernent pas le mois en cours. Par exemple, pour le mois d'avril, masquer le 1er mai. Merci pour votre aide et bel été !
Solution job75 2 Août 2022 Bonjour Moran, fanfan38, Le code de la feuille PLANNING : VB: Private Sub Worksheet_Calculate() Columns("AD").Hidden = Month([AD6]) <> Month([B6]) Columns("AE").Hidden = Month([AE6]) <> Month([B6]) Columns("AF").Hidden = Month([AF6]) <> Month([B6]) End Sub La macro se déclenche quand une formule est recalculée. A+
Bonjour Moran, fanfan38, Le code de la feuille PLANNING : VB: Private Sub Worksheet_Calculate() Columns("AD").Hidden = Month([AD6]) <> Month([B6]) Columns("AE").Hidden = Month([AE6]) <> Month([B6]) Columns("AF").Hidden = Month([AF6]) <> Month([B6]) End Sub La macro se déclenche quand une formule est recalculée. A+
fanfan38 XLDnaute Barbatruc 2 Août 2022 #2 Bonjour Je te propose le planning ci joint Sinon tu mets cette formule pour les 29,30,31 =SI(MOIS(AE6+1)=A1;AE6+1;"") A+ François Pièces jointes planning.zip 783.6 KB · Affichages: 7 Dernière édition: 2 Août 2022 Vote positif 0 Vote négatif
Bonjour Je te propose le planning ci joint Sinon tu mets cette formule pour les 29,30,31 =SI(MOIS(AE6+1)=A1;AE6+1;"") A+ François
M Moran XLDnaute Nouveau 2 Août 2022 #3 Merci beaucoup fanfan pour ta réponse. Je souhaiterais conserver mon modèle de planning. La formule fonctionne parfaitement ! Mais serait-il possible de passer par une macro qui permettrait de cacher les colonnes vides ? Vote positif 0 Vote négatif
Merci beaucoup fanfan pour ta réponse. Je souhaiterais conserver mon modèle de planning. La formule fonctionne parfaitement ! Mais serait-il possible de passer par une macro qui permettrait de cacher les colonnes vides ?
fanfan38 XLDnaute Barbatruc 2 Août 2022 #4 bien sur c'est possible mais je ne vois pas l'intérêt... A+ François Vote positif 0 Vote négatif
M Moran XLDnaute Nouveau 2 Août 2022 #5 fanfan38 à dit: bien sur c'est possible mais je ne vois pas l'intérêt... A+ François Cliquez pour agrandir... C'est simplement pour avoir un tableau qui se termine avec le dernier jour du mois. Vote positif 0 Vote négatif
fanfan38 à dit: bien sur c'est possible mais je ne vois pas l'intérêt... A+ François Cliquez pour agrandir... C'est simplement pour avoir un tableau qui se termine avec le dernier jour du mois.
fanfan38 XLDnaute Barbatruc 2 Août 2022 #6 la date tu la rentre par une formule .... donc au lieu de marquer="=Z6+1" tu marques "=SI(MOIS(Z6+1)=A1;Z6+1;"") dans tous les cas tu as une formule A+ François Vote positif 0 Vote négatif
la date tu la rentre par une formule .... donc au lieu de marquer="=Z6+1" tu marques "=SI(MOIS(Z6+1)=A1;Z6+1;"") dans tous les cas tu as une formule A+ François
job75 XLDnaute Barbatruc 2 Août 2022 #7 Bonjour Moran, fanfan38, Le code de la feuille PLANNING : VB: Private Sub Worksheet_Calculate() Columns("AD").Hidden = Month([AD6]) <> Month([B6]) Columns("AE").Hidden = Month([AE6]) <> Month([B6]) Columns("AF").Hidden = Month([AF6]) <> Month([B6]) End Sub La macro se déclenche quand une formule est recalculée. A+ Pièces jointes PLANNING.xlsm 24.1 KB · Affichages: 4 Vote positif 0 Vote négatif Solution
Bonjour Moran, fanfan38, Le code de la feuille PLANNING : VB: Private Sub Worksheet_Calculate() Columns("AD").Hidden = Month([AD6]) <> Month([B6]) Columns("AE").Hidden = Month([AE6]) <> Month([B6]) Columns("AF").Hidden = Month([AF6]) <> Month([B6]) End Sub La macro se déclenche quand une formule est recalculée. A+
M Moran XLDnaute Nouveau 2 Août 2022 #8 Merci beaucoup job75 ! C'est exactement ce que j'imaginais ! Merci à toi et à fanfan38 pour le temps passé à m'aider. Bel été à vous. Vote positif 0 Vote négatif
Merci beaucoup job75 ! C'est exactement ce que j'imaginais ! Merci à toi et à fanfan38 pour le temps passé à m'aider. Bel été à vous.