XL 2016 Aide dans creation macro

Cris tof

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

1603369232837.png




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").ClearContents 'Supprime le contenu dans les cellules
End Sub
 

Pièces jointes

  • Calendrier AI AIX.xlsx
    18.8 KB · Affichages: 6

Cris tof

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

Statistiques des forums

Discussions
283 436
Messages
1 851 812
Membres
151 347
dernier inscrit
Dorine02
Haut Bas