Ca ne marche pas: le message d'erreur est sur la fonction "selectionne" et me dit : Type incompatible sur le controle "Form1.TxtLib.Name". en mettant "Form1.TxtLib", j'ai le même message d'erreur.
Bouh :-(
Sylvie
-------------------------------
Réponse au message :
-------------------------------
Private Sub Selectionne(Champ As Control)
-------------------------------
Réponse au message :
-------------------------------
Bonjour,
Je souhaite passer un controle en parametre dans une fonction, et je n'y arrive pas. Voici mon source:
' Je veux passer un controle en parametre. Pour l'instant il n'y a qu'un TextBox, mais je voudrais aussi pouvoir passer d'autres controles. Le but du jeu de la fonction est de sélectionner le champ quand on arrive dessus.
Private Sub Selectionne(Champ As Variant)
Dim ChampTxt As TextBox
Set ChampTxt = Champ
ChampTxt.SelStart = 0
ChampTxt.SelLength = Len(ChampTxt)
End Sub
' L'appel de la fonction
Private Sub TxtLib_GotFocus()
Selectionne (Form1.TxtLib.Name)
End Sub
Merci d'avance pour votre aide
Sylvie
