text box

[sylv900]

salut
est-il possible en cliquant dans une textbox d'afficher une feuille particulière et de rester dans la txtbox?
actuellement j'utilise :

Private Sub TxtLigne_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
Sheets('WEST ROOM').Activate
End Sub

la feuille 'west room' s'affiche mais je suis obligé de recliquer dans la text box pour rentrer la valeur voulue, peut on éviter ce 're-cliquage'??
merci

sylvain

 

[PascalXLD]

Bonjour

essaies


Private Sub TxtLigne_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single,
ByVal y As Single)
Sheets('WEST ROOM').Activate
Me.TxtLigne.SetFocus
End Sub

 

[sylv900]

merci Pascal mais malheureusement une feuille autre que 'WEST ROOM' est active et que je clique dans la text box, la feuille 'WEST ROOM' est affichée mais il faut recliquer dans la txtxbox pour pouvoir la remplir...