Format heure dans un textbox

Version imprimable

27/10/2013, 20h11
Liloo14

Format heure dans un textbox

Bonjour à tous,
J'aimerais obliger l'utilisateur à saisir l'heure sous la forme hh:mm dans un textbox.
Existe-t-il à votre connaissance une fonction comme IsDate ou une solution pour obliger l'utilisateur à saisir les deux points pour séparer l'heure et les minutes ?

Merci par avance de m'aiguiller.
Laurent

Bonjour,

si tu es sur que les utilisateurs ont bien commencé la frappe pour les heures avec 2 chiffres (1 zero avant 10 => 01, 02, 03, etc.), tu peux essayer ce code qui répond à ta demande :

Citation:

....une solution pour obliger l'utilisateur à saisir les deux points pour séparer l'heure et les minutes ?

donc :
Code:

1 2 3 4 5 Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)'textbox1 à changer par le nom de ton textbox If Len(TextBox1) = 2 Then If Chr(KeyAscii) <> ":" Then KeyAscii = Asc(":") End If End Sub

28/10/2013, 14h39
Igloobel

Salut,

Personellement j'utiliserai "Format"

tape le dans ton code VBA et fais F1 ...

Tu verras comme c'est interessant ... ;)

@ +

heu

Bonjour
je rajouterais l'exception des autre caractères que numérique

l'impossibilité de taper une heure incohérente (plus de 23 heure ou plus de 59minute)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'textbox1 à changer par le nom de ton textbox
Dim touche_autorisée As String
touche_autorisée = "[01234567989:]"
'on ne peut pas taper autre chose que des chiffres
If Not ChrW(KeyAscii) Like touche_autorisée Then KeyAscii = 0
  'ici on empeche de taper plus de 4 chiffre(2 pour l'heure,2pour les minutes )
  If Len(TextBox1) = 5 Then KeyAscii = 0: Exit Sub
   'ici on empeche de taper plus gros que 2 pour le premier chiffre de l'heure
   If Len(TextBox1) = 0 And Not ChrW(KeyAscii) Like "[0-1-2]" Then KeyAscii = 0
     'ici on empeche de taper plus gros que 3 pour le deuxieme chiffre de l'heure en fonction du premier
     If Len(TextBox1) = 1 And TextBox1.Value = 2 And Not ChrW(KeyAscii) Like "[1-2-3]" Then KeyAscii = 0
        'ici on empeche de taper plus gros que 5 pour les dizaine de minute(59 minutes maximum)
        If Len(TextBox1) = 3 And Not ChrW(KeyAscii) Like "[1-2-3-4-5]" Then KeyAscii = 0
If Len(TextBox1) = 2 Then
  If ChrW(KeyAscii) <> ":" Then KeyAscii = Asc(":")
End If
End Sub

voila voila

mais si tu avais fait une petite recherche tu aurais trouvé CECI:
qui une de mes contributions a ce sujet
ca t'aurait pas mal éguillé

Au plaisir