Discussion :

[Raadgever596]

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

[pgz]

Bonjour.


Je pense que ton erreur vient de

Code :

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

Ctrl.Object.Value

Essaie ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Scan()
 Dim Ctrl As Control
Const CouleurErreur as long = 255 'rouge
 
 For Each Ctrl In Me.Controls 'Me désigne le Userform évidemment :)
   If TypeName(Ctrl) = "TextBox" Then
       If ErrorElement(Ctrl.Value) Then 'ErrorElement(String) As Boolean
           Ctrl.Backcolor = CouleurErreur
       End If
   End If
 Next Ctrl
End Sub

Cordialement

[Raadgever596]

Merci,
J'ai essayé, mais ça ne marche pas plus...J'ai toujours la même erreur...

[pgz]

Tu peux chercher la ligne qui provoque l'erreur en exécutant pas à pas (F8).

PGZ

[Raadgever596]

Merci...Bêtement j'y avais pas trop trop pensé...
J'ai fini par isoler le bug..Et je sais toujours pas d'où il vient... En fait il se produit dans la fonction ErrorElement dont le code est :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function ErrorElement(ByRef Element As String) As Boolean
 
 
     If Not IsNumeric(right(Element, 1)) And right(Element, 1) <> "," Then
        'Element = Left(Element, Len(Element) - 1)
        ErrorElement = True
    Else
        ErrorElement = False
    End If
 
End Function

Et il apparait sur une TextBox qui n'a pourtant rien de particulier ....

[Raadgever596]

Ça y est !!!! Je l'ai !! Abruti de bug !
C'est quand fait le contenu de ma TextBox ne se chargeait pas, elle était vide !

Pfff quelle misère pour un bug aussi évident...Un vrai compilateur avec des vrais logs d'erreurs de compilation me l'aurait affiché immédiatement...
Enfin bref, je revis ! Merci !

[pgz]

Et sur quelle ligne et avec quelle valeur de la variable de passage?

PGZ