1er lundi des mois pairs

[bertgrav]

bonsoir,

j'ai un calendrier, et je voudrais afficher en colonne C en modifiant le code vba de notre ami LAURENT LONGRE l'information "1er lundi" s'il s'agit du 1er lundi du mois uniquement si c'est un mois pair.

actuellement la macro contrôle les samedi et dimanche et colori la cellule en gris
contrôle les jours fériés et mentionne en cellule voisine "jour férié"
et je voudrais ajouter en 3eme cellule l'info "1er lundi"


le fichier joint ne correspond pas à mon travail, mais est une adaptation pour les besoins de la question, en ayant le bout de code "manquant" je pourrais l'incorporer à ma macro.

j'ai mis en feuille "résultat désiré" le résultat que je voudrais avoir.

merci de votre aide

chantal

 

[Pierrot93]

Re : 1er lundi des mois pairs

Bonsoir Chantal,

Ci joint ton fichier modifié au niveau de la macro, pas de la fonction, à tester, j'espère que je ne me suis pas trompé !!!

N'hésites pas si tu rencontres des problèmes.

Bonne soirée
@+

 

[mjo]

Re : 1er lundi des mois pairs

Bonsoir,

Par formule :
=ET(JOURSEM(A1)=2;JOUR(A1)<8;MOD(MOIS(A1);2)=0)

mjo

 

[bertgrav]

Re : 1er lundi des mois pairs

merci beaucoup,

ça fonctionne, j'avais pensé à peu prés à la même chose, mais je cherchais désespérément les codes des mois pairs

je vais essayer de l'incorporer à la fonction, car c'est elle qui doit me servir dans la vrai macro

merci

chantal