XL 2019 Calculer l'écart entre 2 dates (en jours ou mois et jours ou années et mois et jours)

patricktoulon à dit:

re
c'est expliqué me semble t il dans la discussion
tu colle ça dans un module

VB:

Function Datediff_AMJ$(ByVal dat1, Optional ByVal dat2 = 0)
    Dim a%, m%, j%, dtemp As Date, Erreur$
    If dat2 = 0 Then dat2 = Date
    Erreur = IIf(Not IsDate(dat1), "(1)", ""): Erreur = Erreur & IIf(Not IsDate(dat2), "(2)", ""): Erreur = IIf(Erreur <> "", "Invalid Argmt(" & Erreur & ")", "")
    If Erreur <> "" Then Datediff_AMJ = Erreur: Exit Function
    dat1 = CDate(dat1): dat2 = CDate(dat2)
    If dat1 > dat2 Then dtemp = dat1: dat1 = dat2: dat2 = dtemp
    a = Evaluate("DATEDIF(" & CDbl(dat1) & "," & CDbl(dat2) & ",""y"")")
    m = Evaluate("DATEDIF(" & CDbl(dat1) & "," & CDbl(dat2) & ",""ym"")")
    j = Abs(DateSerial(Year(dat1) + a, Month(dat1) + m, Day(dat1)) - dat2)
    Datediff_AMJ = RTrim(IIf(a, a & " an" & IIf(a = 1, " ", "s "), "") & IIf(m, m & " mois ", "") & IIf(m Or a, IIf(j > 0, "et ", ""), "") & IIf(j, j & " jour" & IIf(j = 1, "", "s"), ""))
End Function

exemple entre 2 dates
en A1 je met 12/03/1987
en B1 je met 23/09/1999
en C1 je met = Datediff_AMJ(B1;A1)
'l'ordre importe peu

si tu veux juste la différence entre A1 et aujourd'hui en C1 tu met
=Datediff_AMJ(A1)
c'est pas compliqué

Cliquez pour agrandir...

anthoYS à dit:

Merci tous les intervenants !
c'est ok.
j'ai retiré le "Dans"...

Cliquez pour agrandir...