Saisie d'heures dans textbox

[zumba]

Bonjour, comment éviter une erreur de syntaxe lors de la saisie d'heure et de minute dans une textbox?
Je souhaiterai faire apparaitre un message d'erreur et autoriser une nouvelle saisie.
voici le code actuel. La cellule est au format [h]:mm)
Merci


Private Sub CommandButton1_Click()

x = Split(TextBox1, ":")

Range("j1") = x(0) / 24 + x(1) / 1440
MsgBox ("nbre d'heures=" & x(0))
MsgBox ("nbre de minutes=" & x(1))
Unload Me
End Sub



Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Click()

End Sub

 

[klin89]

Re : Saisie d'heures dans textbox

Bonsoir le forum,

Voir aussi la solution de myDearFriend! ci-dessous.

https://www.excel-downloads.com/threads/formatage-de-txtbox-en-heure.46342/

Klin89

 

[zumba]

Re : Saisie d'heures dans textbox

Bonjour,
la deuxième proposition de "JOB75" me plait beaucoup , on peut peut-être l'améliorée . Lors de l'affichage des données saisies sur 2 lignes apparait un bouton "ok" qui permet seulement de confirmer ,est-il possible d'en faire apparaitre 2 ( un pour une correction et un autre pour une confirmation).
a) je n'ai pas trouvé le code correspondant au bouton ok ?
b) comment mettre 2 boutons ?
Merci

 

[zumba]

Re : Saisie d'heures dans textbox

Bonjour,
la deuxième proposition de "JOB75" me plait beaucoup , on peut peut-être l'améliorée . Lors de l'affichage des données saisies sur 2 lignes apparait un bouton "ok" qui permet seulement de confirmer ,est-il possible d'en faire apparaitre 2 ( un pour une correction et un autre pour une confirmation).
a) je n'ai pas trouvé le code correspondant au bouton ok ?
b) comment mettre 2 boutons ?
Merci

 

[job75]

Re : Saisie d'heures dans textbox

Bonjour zumba,

J'avoue ne pas comprendre ce que vous dites.

S'il s'agit d'un ou 2 boutons dans la feuille de calcul c'est vraiment inutile 😕

Et dans l'UserForm un bouton de validation suffit.

Il faudrait joindre votre fichier avec les macros et expliquer clairement ce que vous voulez faire.

A+

 

[zumba]

Re : Saisie d'heures dans textbox

Bonjour, pour être plus précis je souhaiterai modifier le code ci-dessous au niveau de la msgbox ,qui affiche les valeurs saisies, mais ne permet pas une éventuelle correction . En définitif il faudrait 2 boutons un "correction " et un "validation".

Private Sub CommandButton1_Click()
Dim m, x
If TextBox1 = "" Then TextBox1.SetFocus: Exit Sub
[J1].NumberFormat = "[h]:mm" 'sécurité
m = [J1] 'mémorise
x = Split(TextBox1, ":")
On Error Resume Next
[J1] = x(0) / 24 + x(1) / 1440
If Err Or [J1].Text <> TextBox1 Then
[J1] = m
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1)
MsgBox "L'heure doit être au format ""[h]:mm"" !", 48
Exit Sub
End If
MsgBox "Nombre d'heures = " & x(0) & vbLf & _
"Nombre de minutes = " & x(1)
Unload Me
End Sub