Procédure commune

Question

Voilà mon problème :
J'ai plusieurs forms sur lesquels il y a des textbox et des combobox avec des index.
Je voudrai créer une procédure dans un module qui serait appelée lorsque les controles perdent le focus.
 Privatesub Textbox_lostfocus(index as integer)
      là j'appelle la procédure qui est sur un module
      mais je mets quoi?
end sub

sur le module
publicsub Validation( ???????)
     là je controle la saisie
     et c'est tout?
end sub

si c'est pas clair n'hésitez pas
merci et à +

cs_rene38 · Answer

Pour contrôler la saisie dans une TextBox, utilise une Function plutôt qu'un Sub :

Private Sub Text1_LostFocus(Index As Integer)
      Text1(Index).Text = Valide(Text1(Index).Text )
End Sub

et au niveau du module :

Public Function Valide(Texte As String) As String
     'traitement du texte passé en paramètre
     Valide = le résultat du traitement
End Function

Procédure commune

1 réponse

Discussions similaires