Traduction en VBA de formule Excel

Bonjour
je me demandais comment traduire la formule Excel suivante :

Code:

---

=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

Tu peux essayer

Code:

---

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.

Code:

---

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

---