Format [h]:mm dans un textbox

Bonjour,

Je souhaite afficher dans un textbox une durée, qui peut être supérieure à 24h. La solution évidente est l'utilisation de format(Données, "[h]:mm")... sauf que manifestement VBA ne comprend pas et m'affiche :01 quelle que soit la valeur.

La donnée initiale est dans une variable

J'ai l'impression que VBA ne reconnait pas correctement le format "[h]:mm".

voilà le bout de code correspondant :

Code:

---

Me.TextBox4 = Format(DonnéesAgents(Me.ListBox1.ListIndex + 1, 4), "[h]:mm")

---

dans lequel DonnéesAgents((Me.ListBox1.ListIndex + 1, 4) vaut "01/01/1900 08:40:00"

qui affiche ":01" dans le textbox, même si j'utilise CDate :

Code:

---

Me.TextBox4 = Format(CDate(DonnéesAgents(Me.ListBox1.ListIndex + 1, 4)), "[h]:mm")

---

Existe-t-il une autre solution pour afficher cette durée ?

Merci pour votre réponse.

Olivier

Bonjour,

Je ne suis pas certain d'avoir deviné ...

Ton 01/01/1900 représente une journée ?

Si oui (et uniquement si oui) :

Code:

---

1 2 3 4 5 6

Private Sub Command1_Click() Dim toto As String, titi As Date toto = "01/01/1900 08:40:00" titi = DateSerial(Year(toto), Month(toto), Day(toto)) MsgBox Format(DateDiff("d", titi - 1, titi) * 24 + Hour(toto), "00") & ":" & Format(Minute(toto), "00") End Sub

---

Euh,effectivement, ce n'est pas clair...

Dans une feuille Excel, j'ai un nombre qui représente une durée. En format standard dans la feuille, il s'affiche : 1,36111111111111. En format date, il s'affiche "01/01/1900 08:40:00". En format [h]:mm, il s'affiche "32:40"

Par une connexion ADO, je lis cette valeur, que je met dans la variable DonnéesAgents(i, 4)

Je veux afficher cette variable comme une durée dans un textbox, et j'utilise format (DonnéesAgents(i, 4),"[h]:mm"). Et là, ça ne marche pas.

Je ne sais pas si cette explication est meilleure que la première... En tout cas, merci de m'avoir répondu.

Olivier

Bonjour tlm,

Supposons que dans ta cellule A1 tu as la valeur 32:40 au format "[h]:mm"
Essaye comme ceci :

Code:

---

1 2 3

Dim DonnéesAgents As String DonnéesAgents = Range("A1").Text Me.TextBox4 = DonnéesAgents

---

En fait, en fouillant, je trouve que VBA a un comportement bizarre. J'ai essayé ça :

Code:

---

1 2 3 4

MsgBox Format("01/01/1900 08:40:00", "[h]:mm") MsgBox Format(CDate("01/01/1900 08:40:00"), "[h]:mm") MsgBox Format("01/01/1900 08:40:00", "#.###########") MsgBox Format(1.36111111111111, "[h]:mm")

---

Le premier et le deuxième donnent : ':01'
le troisième 2,361111111
le quatrième : ':12'

Je ne comprends pas la logique de tout ça...

Olivier

Le format [h] n'est valide que dans une cellule.
Tu as le choix:
Soit passer par une cellule de feuille Excel comme te le propose fring, soit utiliser cette formule:
http://www.developpez.net/forums/sho...05#post2965805

Merci pour la réponse. Effectivement, comme ça on arrive à afficher la durée.
Mais il reste un problème entre la manière de traiter une heure entre Excel et
VBA

Code:

---

1 2 3 4 5 6 7 8

Sub essai() Range("A1") = "01/01/1900 08:40:00" MsgBox Format(Range("A1"), "#.#######") MsgBox Format("01/01/1900 08:40:00", "#.#######") End Sub   'Donne 1,361111111 dans le premier Msgbox 'et 2,361111111 dans le deuxième

---

Il y a une explication ?