Format d'heure d'une textbox

[mask]

Bonsoir.

Pourriez vous m'aider s'il vous plait ?

J'ai une TextBox qui doit prendre une heure au format 08h52 par ex.

Le code.

Private Sub TextBox_dureeInc_Change()
Dim txt As Byte
TextBox_dureeInc.MaxLength = 5
txt = Len(TextBox_dureeInc)
If txt = 2 Then
TextBox_dureeInc = TextBox_dureeInc & ":"
End If
End Sub

Le problème est que si je souhaite effacer avec la touche return du clavier je suis
bloqué ici 08: et pas moyen d'effacer le 08:.
Par ailleurs je souhaites aussi ne pas pouvoir renter un heure tels que 22:99 mais être bloqué à 22h59.

Merci d'avance pour le débutant que je suis.

 

[bof]

Re : Format d'heure d'une textbox

bonjour,
Pour le nom du contrôle et la clarté du code j'utilise tbDurInc
une possibilité :

Private Sub tbDurInc_Change()
 tbDurInc.MaxLength = 5
 If Len(tbDurInc) = 2 Then
 tbDurInc = tbDurInc & ":"
 End If
 If Len(tbDurInc) = 4 And Mid(tbDurInc, 4) > 5 Then
 Beep
 tbDurInc = Left(tbDurInc, 3)
 End If
End Sub

Private Sub tbDurInc_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
    Case Is < 48, Is > 57
        KeyAscii = 0
    End Select
End Sub

Private Sub tbDurInc_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 8 And Len(tbDurInc) = 3 Then
tbDurInc = Left(tbDurInc, 1)
End If
End Sub

A+

 

[mask]

Re : Format d'heure d'une textbox

Bonsoir.

Merci beaucoup pour ce bout de code, ça fonctionne car je ne peux pas aller au delà de 59. Mais je ne peux toujours pas effacer en utilisant la touche retour.
Merci grandement de ton aide.

 

[bof]

Re : Format d'heure d'une textbox

Sissi !
la 3ème macro est faite pour ça...
Remplacer tbDurInc par le nom de ton contrôle

Nota : il est préférable de la remplacer par

Private Sub tbDurInc_Key[B]Down[/B](ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 If KeyCode = 8 And Len(tbDurInc) = 3 Then
 tbDurInc = Left(tbDurInc, 1)
 End If
 End Sub

A+

 

[klin89]

Re : Format d'heure d'une textbox

Bonjour à tous,

Tu peus t'appuyer sur le travail de myDearFriend! dans ce fil.
https://www.excel-downloads.com/threads/formatage-de-txtbox-en-heure.46342/

Klin89

 

[mask]

Re : Format d'heure d'une textbox

Merci beaucoup tous c'est vraiment sympa de votre part.