XL 2016 masquer des colonnes en fonctions 2 dates

[Younnssssss]

Bonjour,

Je suis novice en programmation de VBA, en me balladant sur forum j'ai recupéré quelques programmation que j'ai adapter à mon fichier.
J'assai de masquer les colonnes de mon planning en fonction d'un intervalle de 2 dates, J'ai repris la codification d'une ancienne discussion en essayant de l'adapter, mais sa ne fonctions pas je sais pas pourquoi?

Quelqu'un peut me venir en aide SVP?
Voici le code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$3" Or Target.Address = "$B$4" Then CacherMasquerColonnes
End Sub

Sub CacherMasquerColonnes()
Dim c As Range
Dim dateInf As Date 'Date inf?rieure
Dim dateSup As Date 'Date sup?rieure

'Si la macro l?ve une erreur (toujours possible) aller ? la fin pour r?tablir l'affichage ?cran
On Error GoTo FinMAsquage

'D?sactiver l'afichage ?cran (?vite le flashage)
Application.ScreenUpdating = False

'Travailler sur la Feuil1 (?ventuelement ? changer ult?rieurement)
With Sheets("Feuil1")

'Si une date est entr?e en B2 et B3
If IsDate(Range("B3")) And IsDate(Range("B4")) Then

'Conserver ses dates dans les variables (plus rapide)
dateInf = .Range("B3"): dateSup = .Range("B4")

'Boucler sur chaque cellule de la plage E2:EL2
For Each c In .Range("$I$2:$NI$2")

'faut-il cacher la colonne?
c.EntireColumn.Hidden = c > dateInf And c < dateSup

Next c 'prochaine cellule

Else

'Si aucune date n'est entr?e en B3:B4 ou une seule -> afficher tout
.Range("$I$2:$NI$2").EntireColumn.Hidden = False

End If

End With

FinMAsquage:

'r?activer l'affichage ?cran
Application.ScreenUpdating = Tru
End Sub

 

[Hasco]

Bonjour,

Changez la ligne qui compare les date avec c par celle-ci:

c.EntireColumn.Hidden = c < dateInf Or c > dateSup

Bon après midi

 

[Younnssssss]

Bonjour,
Merci beaucoup pour votre aide j' ai essayé de copier comme vous l'indiquez, mais j'une erreur de compilation….
Serait- il possible de me corriger mon fichier, svp?

 

[Hasco]

Re,

Dans votre fichier il n'y a aucune correction de faite en fonction de la réponse donnée précédemment!

Je ne vous répondrez plus
Bonne fin de journée

 

[Younnssssss]

Bonjour,

Je suis confus que vous le preniez de la sorte, je suis comme j' indiquer dans mon premier message débutant. Par conséquent j'essai de comprendre ou il faut corriger.

Je n'ai pas compris ou il faut mette votre code. et pourquoi cela ne fonctionne pas.

Mercie de votre aide.