Bonjour à tous,
Voici une proposition, c'est assez simple il me semble. Les fériés en C3:D15, une date en G1 => le nb en I2 après clic sur le bouton
Sub nb_feries()
Dim C As Range, debut As Double, fin As Double, idx As Integer
debut = Sheets("Feuil1").Range("G1").Value
fin = DateAdd("yyyy", 1, debut)
For Each C In Sheets("Feuil1").Range("C3:D15")
If C.Value >= debut And C.Value <= fin Then idx = idx + 1
Next C
Sheets("Feuil1").Range("I2").Value = idx
End Sub
Pierre
(fichier non protégé ...)
Edit de 10:43 : en me relisant, je pense qu'il serait plus juste d'écrire =>
If C.Value >= debut And C.Value < fin Then idx = idx + 1