Discussion :

[m93.fred]

Bonjour
je me demandais comment traduire la formule Excel suivante :

Code :

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

=TEXTE(ENT($a2-$A1);"00")&" jour(s) "&TEXTE(MOD($a2-$A1;1);"hh:mm")

Cette formule permet de restituer la durée entre 2 dates sous forme de jour heure et minute
Exemple :
date de debut : 30/11/2009 11:25:00
date de fin : 01/12/2009 17:05:00
La formule donne le résultat : 01 jour(s) 05:40

L'idée est d'introduire le calcul dans une macro qui effectue des extractions pour restituer une durée à partir des début et fin de certaines étapes.
Merci
Cordialement

[AlainTech]

Tu peux essayer

Code :

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

UneVariableTexte = Format(Int([a2]-[A1]),"00") & " jour(s) " & Format(([a2]-[A1] MOD 1), "hh:mm")

mais je te conseille de préfixer tes cellules de la feuille où elles se trouvent.

[random]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Function dur(deb As Date, fin As Date) As String
Dim tempo As Double
tempo = Abs(fin - deb)
dur = Int(tempo) & " jour(s) "
tempo = (tempo - Int(tempo)) * 24
dur = dur & Format(Int(tempo), "00") & ":"
tempo = (tempo - Int(tempo)) * 60
dur = dur & Round(tempo, 0)
Debug.Print tempo
End Function