Private Sub ChJour(X As Byte)
StopEvent = True 'evite que le changement de mois ou d'année ne redéclenche l'évênement Jour_Change
Jour.Value = CDate(Pj.Value) + X - jPj.Value
StopEvent = False
End Sub
Private Sub ChJour(X As Byte)
StopEvent = True 'evite que le changement de mois ou d'année ne redéclenche l'évênement Jour_Change
Jour.Value = CDate(Pj.Value) + X - jPj.Value
StopEvent = False
Call ColoriageFerie(Mois, Annee)
End Sub