Autres Masquer jours

Moran

XLDnaute Nouveau
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
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+

Moran

XLDnaute Nouveau
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 ?
 

job75

XLDnaute Barbatruc
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

Statistiques des forums

Discussions
312 156
Messages
2 085 819
Membres
102 991
dernier inscrit
justingr