Bonjour,
j'ai un petit soucis avec les années bissextiles sur mon calendrier, lorsque nous sommes sur une année comme 2016, pas de problème sur le mois de février avec les 29 jours, par contre en sélectionnant l'année 2015 par exemple sur l'onglet "paramètres", je n'arrive pas a masquer la colonne BI, j'ai bien essayer avec une macro, pour rendre l'ensemble automatique lorsque l'on change l'année, mais elle ne fonctionne pas.
Sub ChangementAn()
Dim F1 As Worksheet, F2 As Worksheet, F3 As Worksheet
Application.ScreenUpdating = False
Set F1 = Sheets("jan-jun")
Set F2 = Sheets("jul-dec")
Set F3 = Sheets("Parametres")
If Month(F1.Range("BI3")) <> Month(F1.Range("BH3")) Then
F1.Columns("BI").Hidden = True
With F1.Range("AG1:BH1")
.Merge
.BorderAround Weight:=xlThin
End With
Else
F1.Columns("BI").Hidden = False
With F1.Range("AG1:BI1")
.Merge
.BorderAround Weight:=xlThin
.ColumnWidth = 4
End With
End If
End Sub
Si vous pouviez m'aider, et m'indiquer ce qui cloche, cela me rendra bien service.
Par avance, je vous remercie.
j'ai un petit soucis avec les années bissextiles sur mon calendrier, lorsque nous sommes sur une année comme 2016, pas de problème sur le mois de février avec les 29 jours, par contre en sélectionnant l'année 2015 par exemple sur l'onglet "paramètres", je n'arrive pas a masquer la colonne BI, j'ai bien essayer avec une macro, pour rendre l'ensemble automatique lorsque l'on change l'année, mais elle ne fonctionne pas.
Sub ChangementAn()
Dim F1 As Worksheet, F2 As Worksheet, F3 As Worksheet
Application.ScreenUpdating = False
Set F1 = Sheets("jan-jun")
Set F2 = Sheets("jul-dec")
Set F3 = Sheets("Parametres")
If Month(F1.Range("BI3")) <> Month(F1.Range("BH3")) Then
F1.Columns("BI").Hidden = True
With F1.Range("AG1:BH1")
.Merge
.BorderAround Weight:=xlThin
End With
Else
F1.Columns("BI").Hidden = False
With F1.Range("AG1:BI1")
.Merge
.BorderAround Weight:=xlThin
.ColumnWidth = 4
End With
End If
End Sub
Si vous pouviez m'aider, et m'indiquer ce qui cloche, cela me rendra bien service.
Par avance, je vous remercie.
Pièces jointes
Dernière édition: