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

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...