Calcul Jour par Mois entre 2 dates

[Résolu/Fermé]
Signaler
Messages postés
300
Date d'inscription
vendredi 15 mars 2013
Statut
Membre
Dernière intervention
31 juillet 2018
-
Messages postés
300
Date d'inscription
vendredi 15 mars 2013
Statut
Membre
Dernière intervention
31 juillet 2018
-
Bonjour à tous,

Petite question, est-il possible de calculer facilement le nombre de jour par mois entre 2 dates ?
Ceci afin de calculer le nombre de jours d'absence par mois.

Par exemple, en encodant les dates du 15 juin au 15 août, j'aimerais savoir si une formule pourrait me calculer :
Juin : 15
Juillet : 31
Août : 15

Merci d'avance.
Bonne journée,

4 réponses

Messages postés
24198
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 octobre 2021
6 927
Bonjour,

commence par regarder les liens sous ta question
Que tu aurais eu en commençant par une recherche ;-)
eric

En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Messages postés
300
Date d'inscription
vendredi 15 mars 2013
Statut
Membre
Dernière intervention
31 juillet 2018
25
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
Messages postés
24198
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 octobre 2021
6 927
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
Messages postés
300
Date d'inscription
vendredi 15 mars 2013
Statut
Membre
Dernière intervention
31 juillet 2018
25
Ok merci.

Je vais donc essayer de bricoler quelque chose en me basant sur les anciens sujets et sur mes recherches, je reviendrai pour demander de l'aide et/ou apporter ma solution.

Bonne journée,
Messages postés
300
Date d'inscription
vendredi 15 mars 2013
Statut
Membre
Dernière intervention
31 juillet 2018
25
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
Messages postés
24198
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 octobre 2021
6 927
Une proposition :
Function nbJMois(debut As Date, Fin As Date, mois) As Long
    Dim dat1 As Date
    If IsDate(mois) Then
        'mois voulu fourni sous forme de date
        dat1 = DateSerial(Year(mois), Month(mois), 1)
    Else
        ' mois fourni sous forme d'offset (mois =1 pour mois de Debut)
        dat1 = DateAdd("m", mois - 1, DateSerial(Year(debut), Month(debut), 1))
    End If
    nbJMois = Application.Max(0, Application.Min(DateAdd("m", 1, dat1) - 1, Fin) - Application.Max(dat1, debut) + 1)
End Function

Syntaxe :
=nbJMois(debut, fin, mois)

debut et fin sont les dates.
mois peut être passé de 2 manière :
- une date quelconque du mois voulu
- le n° de mois dans la période (mois debut=1, 2e mois = 2, etc)
=nbJMois($A2;$B2;E$1)
=nbJMois($A2;$B2;1/6/18)
=nbJMois($A2;$B2;"juin-18"))
ou
=nbJMois($A2;$B2;1)
J'ai fait au plus simple sans option pour ôter les we comme ce n'était pas spécifié.
https://www.cjoint.com/c/HGEqCpEFalM
eric

Edit : modif pour retourner 0 en cas de jours négatifs. Fichier joint sans la modif

En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Messages postés
24198
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 octobre 2021
6 927
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
Messages postés
300
Date d'inscription
vendredi 15 mars 2013
Statut
Membre
Dernière intervention
31 juillet 2018
25
Bonjour,

Merci pour cette proposition, je vais regarder ça de plus près pour essayer de comprendre le fonctionnement. Je connais les fonctions personnalisées mais j'ai toujours beaucoup de mal à les utiliser.

Quoi qu'il en soit merci et bonne journée,