TextBox

[Manu64]

Bonjour,

Comment passer un TextBox en argument dans une fonction, S.V.P. ?

Merci d'avance

ex de ce que je cherche à faire

Function Valeur_Ok (Zone as TextBox) as Boolean
If Zone.value <> 5 ...........
End Function

Sub TextBox1_Change()
Ret =Valeur (TextBox1)
End Sub

Sub TextBox2_Change()
Ret =Valeur (TextBox2)
End Sub

etc...

Merci d'avance.

EX-CNRE

 

[wally]

Bonsoir Manu64 et le forum,

Essaye ceci :

Function Valeur_Ok(Zone As Control) As Boolean
If Zone.Value <> 5 ...........
End Function

Sub TextBox1_Change()
Ret = Valeur_Ok(TextBox1)
End Sub

etc...


Slts

wally