VBA : tester si une valeur se trouve dans une plage

Un certain Carl Friedrich Gauss a publié une méthode de calcul de Pâques en 1800 (c'était pas hier !), avec de nombreuses erreurs, mais ce n'est pas celle que tu utilises.

Ci-joint ma matrice.

https://www.cjoint.com/c/FLvvWAy3fRJ

C'est un planning annuel dans le cadre d'une annualisation pour définir la répartition annuelle des heures de travail.

Au début le planning commençait forcément en janvier. Ma macro prévoyait lors du RAZ d'ajouter le texte "FERIE" dans les cases des jours fériés mobiles (les jours fériés fixes tombant toujours dans les mêmes cellules quelque soit l'année leur renseignement était simple).

'Détermination des jours fériés mobiles et vérouillage des cases
For Each R In colonnes_jrs
Set G = Cells(R.Row, R.Column - 1)
If G.Value = Range("AN16").Value Or G.Value = Range("AN17").Value Or G.Value = Range("AN18").Value Then
R.Value = "FERIE"
R.Locked = True
End If
Next R

J'ai voulu ensuite permettre de choisir le moi de début du planning. Les jours fériés fixes ne tombent alors plus forcément dans les memes cellules.

Mon problème est que je ne voudrais pas me retrouver avec un test if à rallonge avec 11 "or"

If G.Value = Range("AN16").Value Or G.Value = Range("AN17").Value Or G.Value = Range("AN18").Value Or [...] Then

Bien vu pour la simplification des formules pour les jours.

Par contre cela ne répond pas à ma problématique initiale : mettre le mot "FERIE" au bout de chaque jour férié lors d'un RAZ.

Ce doit donc nécessairement passer par la macro (ou du moins je le souhaite).

Bonjour,

Puisque les jours férié sont différenciés par une couleur différente (MFC), est-ce bien utile d'écrire en plus "Férié" ?