XL 2016 Aide calendrier et jours feriés

sihamidi

XLDnaute Occasionnel
Bonjour
J'ai trouvé un calendrier sur le web qui me plait sauf que je veux que les jours feriés
se colorent en vert sur le calendrier .

les jours feriés se trouvent dans la feuille "jour féries"

merci
 

Pièces jointes

  • calendrier001.xls
    114.5 KB · Affichages: 76
  • calleend.png
    calleend.png
    87.2 KB · Affichages: 40

Lolote83

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
10
Affichages
347