XL 2010 Cacher ou Afficher les cellules en fonction de la date en jaune

[anthonygg]

Bonjour

Comment cacher ou Afficher les cellules en fonction de la date en jaune sur mon fichier Excel ?
J'aimerai changer la date dans les cellule en jaune et que cela affiche ou cache les colones.

Ca serai Super si un pro pourait m'aider ! Merci

 

[anthonygg]

J'ai cherché toute la nuit
J'ai un tout début de réponse !

Si je met 1 dans la case B2 alors ça me masque les colonnes de 3 à 9.
Si je met 0 ça m'affiche tout.

J'aimerai beaucoup faire ça mais pour toute la feuille Excel en fonction de la date.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

'choisir le mois
Dim a As Date
a = Range("B14").Value

Application.ScreenUpdating = True

If Range("B2") = 1 Then Columns("D").EntireColumn.Hidden = True
If Range("B2") = 2 Then MsgBox a
If Range("B2") = 3 Then Columns("D").EntireColumn.Hidden = False

End Sub

 

[anthonygg]

Bon je viens de réussir.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
'choisir le mois
Dim a As Single
Dim b As Single
Dim c As Single

a = Range("B2").Value


Columns("C:ZZ").EntireColumn.Hidden = True

b = (3 + 9 * a)
c = (11 + 9 * a)

For i = b To c
Columns(i).EntireColumn.Hidden = False
Next

End Sub