textbox format spécial

[tallia64]

Bonsoir j'essaie de trouver un format pour une textbox du genre "21:36" et le bloquer pour éviter les erreurs de frappe tel que "mm:mp". Mais rechercher s'avèrent sans succés pouvez vous m'aider s'il vous plait ?
Je vous remercie
tallia

 

[bqtr]

Re : textbox format spécial

Bonsoir tallia,

Voici un exemple pour un Textbox sur un Userform :

Ce code n'autorise que la saisie de chiffre et le retour en arrière pour effacer.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then
        KeyAscii = 0
    End If
End Sub

Celui là vérifie si c'est bien une heure qui est tapée et bloque le nombre de caractère à 5.

Private Sub TextBox1_Change()
Dim Heur
TextBox1.MaxLength = 5
Heur = Replace(TextBox1.Value, ":", "")
If Len(Heur) > 2 Then Heur = Left(Heur, 2) & ":" & Right(Heur, Len(Heur) - 2)
If Len(Heur) = 5 Then
  If Not IsDate(Format(TextBox1, "hh:mm")) Then MsgBox "Heure invalide"
End If
TextBox1.Value = Heur
End Sub

Pour mettre le contenu sur la feuille tu utilises ceci pour la cellule active :
Excel transformera la cellule en format horaire automatiquement.

ActiveCell = TextBox1.Text

Pour saisir dans le Textbox tu entres tes 4 chiffres à la suite, le ":" se mettra tout seul

Ex : 0123 donnera 01:23

Bonne nuit

 

[tallia64]

Re : textbox format spécial

Bonsoir merci pour votre message je teste de suite le code.
Tallia

 

[tallia64]

Re : textbox format spécial

Bonsoir BQTR
Merci pour le code qui m'a bien aidé.
bonne soirée
Tallia