Vérifier le contenu des TextBox

Bonjour à tous,
Voilà mon piti problème. Je voudrais créer une procédure/fonction qui inspecte un UserForm pour détecter tous les caractères non numériques dans les TextBox..Seulement...ça marche pas ! :)

Voilà mon code actuel :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub ErrorElement(ByRef Element As TextBox)   On Error Resume Next   If Not IsNumeric(right(Element, 1)) And right(Element, 1) <> "," Then MsgBox "Erreur" Element = Left(Element, Len(Element) - 1) End If   End Sub

---

Et dès que je fais appel à cette procédure de cette manière :

Code:

---

ErrorElement (UserForm1.UpEfficiency)

---

J'ai le droit à une manifique Erreur d'éxecution 424 qui pointe sur cette dernière ligne... Que faire ?

Merci à tous et bonne journée :)


Alexis

Bonjour.

Tu pourrais essayer de passer la valeur de TextBox, du genre

Code:

---

Sub ErrorElement(ByRef Element As string)

---

Et supprimer ce

Code:

---

On Error Resume Next

---

Que l'on ne saurait voir dans ce contexte!

PGZ