Calcul Jour par Mois entre 2 dates
Résolu
Villette54
Messages postés
300
Date d'inscription
Statut
Membre
Dernière intervention
-
Villette54 Messages postés 300 Date d'inscription Statut Membre Dernière intervention -
Villette54 Messages postés 300 Date d'inscription Statut Membre Dernière intervention -
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,
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,
A voir également:
- Calcul Jour par Mois entre 2 dates
- Nombre de jours entre deux dates excel - Guide
- Supercopier 2 - Télécharger - Gestion de fichiers
- Mise a jour chrome - Accueil - Applications & Logiciels
- Youtube premium 2 mois gratuit - Accueil - TV & Vidéo
- Mise a jour windows 10 - Accueil - Mise à jour
4 réponses
Bonjour,
commence par regarder les liens sous ta question
Que tu aurais eu en commençant par une recherche ;-)
eric
commence par regarder les liens sous ta question
Que tu aurais eu en commençant par une recherche ;-)
eric
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,
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,
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
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
Une proposition :
Syntaxe :
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
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
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) :
https://www.cjoint.com/c/HGErGmCXgfM
Villette54, ta formule en B27 devient :
à tirer vers le bas et vers la droite
eric
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
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
Il faut le calculer à base de min et max.
Ou alors faire une fonction personnalisée en vba
eric