Discussion :

[ogeiger]

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 :

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

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 :

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

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

[ucfoutu]

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 :

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

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

[ogeiger]

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

[fring]

Bonjour tlm,

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

Code :

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

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

[ogeiger]

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

Code :

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

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

[AlainTech]

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