Re salut,
Je viens de m'apercevoir que lorsque l'on clique sur un jour quelconque du formulaire, les jours fériés repérés ne le sont plus.
L'erreur est corrigée (voir ancien module à remplacer par nouveau module) Ancien module
Code:
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
à remplacer par Nouveau module
Code:
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
Ce qui a changé : Call ColoriageFerie(Mois, Annee)
@+ Lolote83