Microsoft 365 Ecart dates

JBL07

XLDnaute Occasionnel
Bonjour les amis,

J'ai du mal à trouver la bonne formule (ça peut être du code vba ou une formule en cellules) :

Je voudrais que la colonne J indique le nombre de jours entre la date et la date précédente, mais uniquement lorsque la colonne F indique un total, sinon le nb de jours depuis le dernier total en F.

J'ai mis 2 petits commentaires à côté du tableau en PJ pour être plus clair ( j'espère ! lol )

Merci de vos suggestions !
Cdt
 

Pièces jointes

  • Ecart dates.xlsm
    14 KB · Affichages: 11

fanch55

XLDnaute Barbatruc
Salut à tous,
Il doit sûrement exister une formule à rallonge qui ne me vient pas à l'esprit dans l'immédiat .
Cependant par "macro", mettre la fonction ci-dessous dans un module
et mettre dans la colonne Ecart la formule =nbj([@[ total date]])

VB:
Function Nbj(Cel As Range)
Dim R As Range
Dim Lc As Integer, Lr As Integer
    Lc = Cel.Row - Cel.ListObject.HeaderRowRange.Row ' Ligne cellule dans la table
    If Lc = 1 Or Cel = "" Then ' Ligne d'entête pas de calcul
        Nbj = ""
    Else
        Set R = Range([Tableau1[ total date]].Cells(1).Address & ":" & Cel.Address).Find("*", Cel, xlValues, xlWhole, , xlPrevious)
        Lr = R.Row - Cel.ListObject.HeaderRowRange.Row ' Ligne trouvée dans la table
        If Lr <> Lc Then Nbj = DateDiff("d", [Tableau1[Dates 2]].Rows(Lr), [Tableau1[Dates 2]].Rows(Lc))
    End If
End Function
 

Discussions similaires

Réponses
9
Affichages
534
Réponses
11
Affichages
504
Réponses
2
Affichages
228

Statistiques des forums

Discussions
312 108
Messages
2 085 361
Membres
102 874
dernier inscrit
Petro2611