Discussion :

[maximath]

Bonjour,
Je voudrais trouver le nombre de mois entre deux date mais pour un intervalle défini.
Par exemple, combien de mois pour l'année 2018 entre 05/06/2015 et 10/10/2019. Mais j'ai besoin d'une formule qui prenne en compte tous les cas de figure :

1/05/2015 - 1/06/2016 = 0 mois
1/05/2015 -30/05/2018 = 5 mois
01/05/2018 - 30/07/2018 = 3 mois
1/05/2015 -30/10/2019 = 12 mois
1/10/2018 - 1/04/2019 = 3 mois

j'ai essayé avec des formules IIF en essayant de prendre les différents cas de figures, avec les critères dans le mode création, avec série date et ajdate et ça fait deux jours que je penche dessus, mais je ne trouve pas du tout

Quelqu'un pourrait m'aider ?

Merci beaucoup

Maxime

[Malick]

Salut,

Ce fil traite votre problématique je pense : https://www.developpez.net/forums/d1...entre-2-dates/


Bonne lecture

[maximath]

merci beaucoup

[hyperion13]

Salut
Et pour info, tous vos cas de figure présentent un résultat faux ! volontaire ?
Et pour terminer la série de fonctions datedif()

[ClaudeLELOUP]

Salut
Et pour info, tous vos cas de figure présentent un résultat faux ! volontaire ?
Et pour terminer la série de fonctions datedif()

Lequel est faux ?

[Riton47]

Bonjour à tous,

Ci joint une petite base de données avec un exemple de calcul avec une requête.
On pourrait faire une fonction en VBA pour mettre en paramètre l'année.
En espérant répondre à ta question.
Cordialement
Riton

[hyperion13]

Lequel est faux ?

Bonjour Claude
Euh... désolé ! erreur de ma part !

[hyperion13]

Un début de solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function NbreMois(datedeb As Date, datefin As Date, inputyear As Integer) As Integer
Dim nbmois As Integer
 
If Year(datedeb) < inputyear And Year(datefin) < inputyear Then
    nbmois = 0
ElseIf Year(datedeb) = inputyear And Year(datefin) = inputyear Then
    nbmois = DateDiff("m", datedeb, datefin) + 1
ElseIf inputyear > Year(datedeb) And inputyear < Year(datefin) Then
    nbmois = DateDiff("m", DateSerial(inputyear, 1, 1), DateSerial(inputyear, 12, 31)) + 1
ElseIf inputyear > Year(datedeb) And inputyear = Year(datefin) Then
    nbmois = DateDiff("m", DateSerial(inputyear, 1, 1), datefin) + 1
ElseIf inputyear = Year(datedeb) And inputyear < Year(datefin) Then
    nbmois = DateDiff("m", datedeb, DateSerial(inputyear, 12, 31)) + 1
End If
NbreMois = nbmois
End Function

[maximath]

Wow super, merci énormément pour vos réponses, ça m'aide beaucoup !!

[Robert1957]

Bonjour à tous,

Dans le même ordre d'idée qu'hyperion13 juste une approche différente, dans un module:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Function fuNbreMois(daDebut As Date, daFin As Date, loAn As Long) As Long
On Error GoTo gestion_err
 
    Dim i As Long
 
    Do While daDebut < daFin
        If Year(daFin) < loAn Or Year(daDebut) > loAn Then: Exit Do
        If Year(daDebut) = loAn Then: i = i + 1
        daDebut = DateAdd("m", 1, daDebut)
    Loop
 
    fuNbreMois = i
 
Sortie:
Exit Function
gestion_err:
    MsgBox Err.Description & Chr(13) & "Erreur #: " & Err.Number
    Resume Sortie
End Function

Bonne journée

[maximath]

Un tout tout grand merci !!