Discussion :

[NEC14]

Bonjour à tous,

J'ai le code ci-dessous d'un module de Classe qui me permet de mettre des TextBox au format horaire (00:00). Si on tape autre chose que du numérique un message d'erreur s'affiche.
Mais dès que je tape un chiffre à partir du clavier numérique, le message apparaît.
Je ne vois pas où se situe l'erreur.
Pouvez-vous m'aider s'il vous plait ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Option Explicit
Public WithEvents txt As MSForms.TextBox, c As Control
 
Private Sub txt_Change()
For Each c In UFsais.Controls
If TypeOf c Is MSForms.TextBox Then
If Val(c) > 24 Then MsgBox "Erreur de saisie": c = "": Exit Sub
If c.TextLength = 2 Then: c = c & ":"
End If: Next c
End Sub
 
Private Sub txt_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Ps : Précision importante, lors de la première ouverture de l'User ça marche, mais dès la deuxième saisie, le message d'erreur apparaît si je veux saisir une heure

[zenpbb]

Bonjour,

Pourquoi dans la proc txt_Change() balaies-tu tous les contrôles du userform et appliques-tu tes vérifications sur tous les TextBox et pas seulement sur txt ?

Essaie plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub txt_Change()
    If Val(txt) > 24 Then MsgBox "Erreur de saisie": txt = "": Exit Sub
    If txt.TextLength = 2 Then: txt = txt & ":"
End Sub

ça devrait suffire.

[DeaD78]

Salut,

Tu devrais faire des tests sur l'ensemble de tes variables, une par une, avec des MsgBox par exemple histoire de voir ce que ça donne. Peut--être qu'il manque une initialisation de variable.

Regarde aussi du côté de ton traitement du ASCII.

N'étant pas très à l'aise sur le sujet, je contournerais le problème.

J'avais tiré ça d'un tuto pour une TextBox, ça sera pas trop dur à adapter je pense :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Not IsNumeric(Right(TextBox2, 1)) And TextBox2.Value <> "" Then
    MsgBox "Le caractere saisi n'est pas valide : Merci de saisir uniquement des chiffres ! !"
    TextBox2 = Left(TextBox2, Len(TextBox2) - 1)
End If

A chaque fois que tu saisis autre chose qu'un chiffre, le message apparaît et ça revient automatiquement d'un caractère en arrière. Tu peux rajouter tes ":" comme tu veux dedans.

[NEC14]

Bonjour Zenpbb et DeaD78,

Merci pour vos suggestions. J'ai retenue celle de Zenpbb qui fonctionne bien. DeaD78 je n'ai pas testé la tienne mais je la retiens on ne sais jamais.
Merci encore à vous deux
Cordialement