textbox format spécial

tallia64 · 6 Novembre 2008

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 · 6 Novembre 2008

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.

Code:

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.

Code:

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.

Code:

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 · 6 Novembre 2008

Re : textbox format spécial

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

tallia64 · 6 Novembre 2008

Re : textbox format spécial

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

textbox format spécial

tallia64

XLDnaute Occasionnel

bqtr

XLDnaute Accro

tallia64

XLDnaute Occasionnel

tallia64

XLDnaute Occasionnel

Discussions similaires

textbox format spécial

tallia64

XLDnaute Occasionnel

bqtr

XLDnaute Accro

tallia64

XLDnaute Occasionnel

tallia64

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency