Calcul temps indisponibilité (soustraction de date et résultat au format jj:hh:mm:ss)

[rudymagny]

Bonsoir le forum,
j'ai besoin de réalisé un calcul de temps d'indisponibilité entre 2 dates en faisant une soustraction :
date fin - date début ==> Afficher le résultat au format jj:hh:mm:ss

J'ai trouvé de nombreux fils qui abordait ce style de sujet mais je n'ai pas trouvé mon bonheur...

Voici ou j'en suis :

        For i = 2 To L3
            tps_indispo = ""
            If Cells(i, 12).Value <> "" Then
                With ThisWorkbook.Sheets("Rapport Exploitation")
                    tps_indispo = CDate(.Cells(i, 12)) - CDate(.Cells(i, 11))
                End With
                MsgBox Format(tps_indispo, jj & " jours " & hh & " hrs " & mm & " min " & ss & " sec. ")
            Else
                With ThisWorkbook.Sheets("Rapport Exploitation")
                    tps_indispo = CDate(Now) - CDate(.Cells(i, 11))
                End With
                MsgBox Format(tps_indispo, jj & " jours " & hh & " hrs " & mm & " min " & ss & " sec. ")
            End If
        Next i

mais le résultat en sortie est incohérent ;-( voir PJ

Merci pour votre aide

 

[kjin]

Re : Calcul temps indisponibilité (soustraction de date et résultat au format jj:hh:m

Bonsoir,

mais le résultat en sortie est incohérent ;-( voir PJ

Surtout illisible pour ma part
Si tes cellules sont au format date, par exemple

MsgBox Format([B1] - [A1], "d ""jours"" h ""heures"" m ""minutes et"" s ""secondes""")

A+
kjin

 

[rudymagny]

Re : Calcul temps indisponibilité (soustraction de date et résultat au format jj:hh:m

Bonsoir kjin, je n'avais pas faise gaffe mais mon imprime ecran est pourri ;-( désolé...

Par contre ta proposition ne me donne pas le résultat attendu, j'ai testé en faisant comme àa :

        For i = 2 To L3
            tps_indispo = ""
            If Cells(i, 12).Value <> "" Then
                With ThisWorkbook.Sheets("Rapport Exploitation")
                    MsgBox Format([.Cells(i, 12)] - [.Cells(i, 11)], "d ""jours"" h ""heures"" m ""minutes et"" s ""secondes""")
                End With
            Else
                With ThisWorkbook.Sheets("Rapport Exploitation")
                    MsgBox Format([Now] - [.Cells(i, 11)], "d ""jours"" h ""heures"" m ""minutes et"" s ""secondes""")
                End With
            End If
        Next i

Rien ne s'affiche....

je met un fichier en exemple avec le résultat d'une formule que j'ai testé mais qui ne donne pas les bons delta et une macro vba mais qui bloc au niveau du format de date je pense ... Je sèche

 

[Modeste geedee]

Re : Calcul temps indisponibilité (soustraction de date et résultat au format jj:hh:m

Bonsour®

Bonsoir le forum,
j'ai besoin de réalisé un calcul de temps d'indisponibilité entre 2 dates en faisant une soustraction :
date fin - date début ==> Afficher le résultat au format jj:hh:mm:ss

mais le résultat en sortie est incohérent

le format :
d hh:mm:ss
ne peut afficher au-dela de 31 jours
il est par ailleurs illusoire de vouloir utiliser un format de nombre date-heure autrement que sous la forme
jours , fraction décimale de jour

contournement possible (mais le résultat est un texte !!!)
voir pièce jointe

 

[rudymagny]

Re : Calcul temps indisponibilité (soustraction de date et résultat au format jj:hh:m

Bonsoir Modeste geedee,
C'est exactement le rendu que je cherchais (Maladroitement ;-)

Je teste ça dans mon fichier réel demain et je te tiens au courant ...

Merci beaucoup, bonne soirée

 

[rudymagny]

Re : Calcul temps indisponibilité (soustraction de date et résultat au format jj:hh:m

Bonsoir le forum, Modeste geedee,
Juste pour te confirmer que ta solution fonctionne nickel dans le fichier réel ;-) merci beaucoup.

bonne soirée
@+