XL 2016 Aide dans creation macro

[Cris tof]

Bonjour a tous,

je souhaite créer une macro pour pouvoir masquer des colonnes du fichier excel sous certaines conditions

J'ai suivi à la lettre les indications ci dessous mais ca ne fonctionne pas

Je démarre tout juste dans le Visual Basic

Help please !! merci

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

 

[Robert]

Bonjour Cris tof, bonjour le forum,

En pièce jointe ton fichier modifié qui devient .xlsm puisqu'il contient désormais une macro.

 

[Cris tof]

Bonjour Cris tof, bonjour le forum,

En pièce jointe ton fichier modifié qui devient .xlsm puisqu'il contient désormais une macro.

Merci Robert , c'est exactement ce que je cherchait à faire !

Une petite précision quand je mets une valeur ou texte dans une cellule du fichier excel ( exemple Fevrier 2020 H8 ) et que je change de mois et que je reviens sur Février 2020 , la valeur ou texte a disparu malgré l'enregistrement

Une idée peut etre !
Sachant que les valeurs ou texte d'une cellule peuvent variés en fonction des mois et années

Merci

 

[Robert]

Re,

Hé oui, le tableau n'est pas prévu pour ça...