Calcul Jour par Mois entre 2 dates

Hello,

J'ai fais une recherche et je suis tombé sur le sujet "Nombre de jours par mois entre deux dates"
Mais celui-ci datant un peu et Excel ayant eu des mises à jour depuis je cherchais à savoir si une solution plus simple est désormais disponible.

Mes recherches n'ayant rien donné, voilà pourquoi je suis venu poser directement la question

Toujours pas de fonction dédiée non.
Il faut le calculer à base de min et max.

Ou alors faire une fonction personnalisée en vba
eric

Voici ce que j'ai bricolé si jamais ça peut aider quelqu'un : https://www.cjoint.com/c/HGEqt7dCJGV

Il y a certainement une meilleure façon de faire, on peut certainement simplifier mes formules mais l'essentiel est là : ça fonctionne pour tous mes cas particuliers.

Je laisse le sujet encore un peu ouvert, si jamais des gens qui passent pas là ont des conseils pour améliorer mes formules je suis preneur car là ça devient compliqué de s'y retrouver, même pour moi

Bonne fin de journée

version avec paramètre optionnel pour ne pas compter jour de début et/ou de fin,
et annulation de l'erreur #VALEUR si une date n'est pas conforme (retourne 0) :

Function nbJMois(debut, Fin, mois, Optional jDeb As Boolean = True, Optional jFin As Boolean = True) As Long
    Dim dat1 As Date
    If Not IsDate(debut) Or Not IsDate(Fin) Then nbJMois = 0: Exit Function
    If Not jDeb Then debut = debut + 1 ' jour debut non compté
    If Not jFin Then Fin = Fin - 1 ' jour fin non compté
    If IsDate(mois) Then 'mois voulu fourni sous forme de date
        dat1 = DateSerial(Year(mois), Month(mois), 1)
    Else ' mois fourni sous forme de n° de mois dans la période
        dat1 = DateAdd("m", mois - 1, DateSerial(Year(debut), Month(debut), 1))
    End If
    If Month(dat1) = Month(Fin) And Not jFin Then nbJMois = nbJMois - 1
    nbJMois = Application.Min(DateAdd("m", 1, dat1) - 1, Fin) - Application.Max(dat1, debut) + 1
    nbJMois = Application.Max(0, nbJMois)
End Function

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

Villette54, ta formule en B27 devient :

=nbjmois($D2;$E2;B$25;FAUX;FAUX)

à tirer vers le bas et vers la droite
eric