Salut !!!
Je me trouve complètement bloqué depuis maintenant quelques heures. Je voudrais colorer les TextBox d'un UserForm grâce à un inspecteur si elles contiennent des caractères non numériques ..

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub Scan()
 Dim Ctrl As Control
 For Each Ctrl In Me.Controls 'Me désigne le Userform évidemment :)
   If TypeName(Ctrl) = "TextBox" Then
       If ErrorElement(Ctrl.Object.Value) Then 'ErrorElement(String) As Boolean
           'Comment colorer ?
       End If
   End If
 Next Ctrl
End Sub
Normalement la fonction ErrorElement fonctionne correctement..

Et quand j'éxecute le tout, j'ai le droit à une magnifique "Erreur 5", mais elle ne précise pas ou est l'erreur...Super pour le débugage !


Merci à tous,


Alexis