XL 2019 Module macro

[Zazagally]

bonjour,

Je me suis exercée à créer un calendrier perpétuel me permettant de planifier des taches transverses sur 3 groupes (gr1, gr2,gr3).
Je rencontre un problème pour l'execution de la macro qui permet :
1) de masquer les colonnes pour que la fin de mois soit le dernier jour du mois (exemple le mois de février se termine le 28/02 et le mois d'avril se termine le 30/04)
2) de rendre le tableau des taches vierge le mois suivant pour les compléter avec de nouvelles taches tout en conservant bien les taches des mois précedents.

Je ne connais pas grand chose aux macros, pouvez vous m'aider, je met le fichier en question en PJ.

voici le code que j'ai copié :

2 3 4 5 6 7 8 9 10 11

Sub Masquer_Jour() Dim Num_Col As Long For Num_Col = 30 To 32 ' Boucle sur les cellules des jours 29, 30 et 31 If Month(Cells(6, Num_Col)) >= Cells(1, 1) Then Columns(Num_Col).Hidden = True Else Columns(Num_Col).Hidden = False End If Next Range("B6:AF13&quot.ClearContents 'Supprime le contenu dans les cellules End Sub

un grand merci !

 

[fanfan38]

Bonjour
Ci joint ma solution

A+ François

 

[Zazagally]

Merci Fanfan38. ça fonctionne !!!! j'ai une derniere problématique : les elements que j'indique en dessous s'effacent bien mais les données des mois précédents ne sont pas conservés. est ce possible?

merci

 

[fanfan38]

Je te propose la version si jointe
Je n'ai mis qu'une alerte en cas de changement d'année (dans ce cas enregistrer avec un nouveau nom)
mais on peut aussi faire une sauvegarde...
A toi de choisir

A+ François

 

[Zazagally]

c'est parfait ! merci beaucoup François ça me sort de l'impasse !!