Date et heure dans Userform

[Antho35]

Bonjour,

J'ai un petit bug dans un userform. J'ai un TextBox avec une heure, (toute les données vont ensuite) vers un tableau. Je joins le code (qui concerne l'heure et non le fichier qui dépasse les 12Mo), le probléme lorsque je passe sur une autre zone de mon formulaire l'heure devient systhématiquement 00:01 (et quelque sooit l'heure rentré, la même chose se met dans le tableau 00:01.

S

heets("SYNTHESE_AUTRES").Cells(ligne, 13) = Format(TextBox5, "hh:mm")

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox5 = "" Then Exit Sub
On Error Resume Next
TextBox5 = Format(TextBox5, "00:00")
End Sub

Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("01234567879", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Private Sub TextBox5_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Len(TextBox5) = 2 Then TextBox5 = TextBox5 & ":": Exit Sub
End Sub

Je pense que ça ne doit pas être bien méchant.

Merci pour votre aide.

 

[Guest]

Re : Date et heure dans Userform

Bonjour,

Pas sûr mais cela doit être à cause de

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox5 = "" Then Exit Sub
On Error Resume Next
TextBox5 = Format(TextBox5, "00:00")
End Sub

Qui serait plutôt

 Format(TextBox5,"hh:mm")

le

On Error Resume Next

est inutile.

A+