XL 2016 masquer des colonnes en fonctions 2 dates

Younnssssss

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

Pièces jointes

  • Planning COMAI-LR.xlsm
    107.3 KB · Affichages: 9

Hasco

XLDnaute Barbatruc
Repose en paix
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
 

Pièces jointes

  • Planning COMAI-LR (1).xlsm
    484.1 KB · Affichages: 5
Dernière édition:

Younnssssss

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

Discussions similaires

Statistiques des forums

Discussions
311 715
Messages
2 081 822
Membres
101 822
dernier inscrit
holale