Soucis avec un module de classe en Vba

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:

---

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

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:

---

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.

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:

---

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.

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 :ccool: