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