Evènement click sur un TextBox ???

[Pixel]

SAlut le forum

Je chrche à détecte run évènement click sur un textbox, mais je n'arrive pas à trouver la bonne syntaxe...

un truc du genre :

private sub textbox_click() '<- mais cette ligne marche pas. koi mettre ?
bla-bla-bla
bla-bla-bla
end sub

 

[Pixel]

bon à force de tatonner, j'ai trouvé un truc avec le double-click !!!
mais toujours rien avec le click normal ...

please Help !

 

[@+Thierry]

Salut Pixel, le Forum

L'évènement Click, ne semble pas être disponible pour une TextBox, mais tu as d'autre évènements :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
MsgBox "Toc Toc TextBox1"
End Sub

Private Sub TextBox2_Enter()
MsgBox "Toc Toc TextBox2"
End Sub

Attention au "Enter" qui se déclenchera même à l'initialisation, donc la je l'ai mais sur la TextBox2... qui ne prend pas le Focus au départ...

Sinon tu as encore :
Private Sub TextBox2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MsgBox "Hello From TextBox2"
End Sub
Mais attention à bien le gérer (voir ma démo dans le Fil Lien supprimé

Ou encore
Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox "Coucou"
End Sub


Enfin regarde la Liste Déroulante à Droite, quand tu as sélectionné ta TextBox dans la Liste Déroulante de Gauche du Private Module en question... Un peu comme ici dans ce gif Figure 2 & 3 pour le WorkBook_Open :



Bon Aprèm
@+Thierry

 

[Pixel]

merci beaucoup !
le mousemove me plait assez, je vais essayer de creuser dessus...