Discussion :

[Raadgever596]

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 :

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

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 :

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

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

[pgz]

Bonjour.

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

Code :

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

Sub ErrorElement(ByRef Element As string)

Et supprimer ce

Code :

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

On Error Resume Next

Que l'on ne saurait voir dans ce contexte!

PGZ