Condition jour de semaine
Bonjour, Cela fait quelques heures que je cherche à écrire un code VBA pour un fichier de gestion de congés de mes salarier.
j'ai mis en forme un calendrier avec recalcule des dates en fonction de l'année rentre en A1, et je voudrais que quel que soit l'année sur laquelle je suis, le fichier me repère les jours de repos de mes collaborateurs (les jours de repos étant toujours les mêmes). je voudrais que sur une plage donnée, dans mon cas B7:AF7 pour le mois de juin, (les cellules renvoie à une date) que le code vérifie si B7 est un jeudi ou pas, puis si C7 est un jeudi ou pas ... --> AF7, et si la condition est vérifiée alors m'écrire un "R" dans la même colonne mais en ligne 11.
plus concrètement si la case J7 vérifie la condition (donc la date en J7 est un jeudi) alors il doit inscrire un "R" dans la case J11.
Je vous joins le fichier concerné.
Merci de votre aide
Quevain
Bonjour quevain, gmb,
Très modestement j'ai modifier le code de gmb qui ne m'en voudra pas
J'ai également supprimé la ligne 80 qui posait problème.
Cordialement.
Un grand merci à vous 2 le fichier marche exactement comme je le souhaitais.
Si j'abusais de vos connaissances et de votre gentillesse, pouvez-vous me donner les lignes de code pour que les dimanches soient grisés comme je l'ai déjà fait à l'aide de mise en forme conditionnelle pour les jours férié.
Merci
Quevain
Re quevain,
Peut-être avec une autre MFC.
Les dimanches en bleu, je te laisse choisir une autre couleur
Cordialement.
Pas du tout.j'ai modifier le code de gmb qui ne m'en voudra pas
A mon tour, j'ai apporté un petit complément à ton dernier fichier pour que lorsque l'année est modifiée en A1, le nom de la feuille soit modifié en conséquence.
Bye !
Re gmb,
J'aimerais dans une autre vie avoir ton talent
Cordialement.
Je tiens à vous remercier tous les 2, la solution que vous m'avez apportées colle en tous point à ce que je demandais et comme ci cela ne suffisait pas j'ai même eu le droit à des améliorations très utiles du fichier que je n'avais pas demandé.
un grand merci à vous
Quevain