prendre le focusRésolu

Question

Bonjour,

J'ai un problème pour prendre le focus avec une instruction et pas l'autre pourquoi ? Voici le code (VBA):

Private Sub CBvalid_Click()
    Sheets("releve").Range("C2").Value = TextBox2.Text
    num = num + 1
    TextBox2.Text = ""
    Label3.Caption = num
    TextBox2.SetFocus
End Sub

Private Sub Textbox2_Keydown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
    Sheets("releve").Range("C2").Value = TextBox2.Text
    num = num + 1
    TextBox2.Text = ""
    Label3.Caption = num
    TextBox2.SetFocus
End If
End Sub

Lorsque j'utilise le bouton (CBvalid_Click), pas de problème, le focus ce met sur le Textbox2. Par contre lorsque j'utilise la touche Entrée (KeyCode = 13) il n'y a pas moyen.
Quelqu'un voit-il le problème ?
Merci d'avance et bonne prog.
à+++

marcod59 · Accepted Answer

Voilà la solution que j'ai trouvé pour que ça fonctionne :

Private Sub Textbox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
    Sheets("releve").Range("C2").Value = TextBox2.Text
    num = num + 1
    Label3.Caption = num
    TextBox2.Text = ""
    KeyCode = vbKeyLButton
    TextBox2.SetFocus
End If
End Sub

Merci à tous ceux qui ont cherché une solution.

@+++

cs_Jack · Answer

Salut
Je comprends pas trop ton probl&#232;me ...
Le code que tu as mis est dans un &#233;v&#232;nement de Text2, donc tu y es d&#233;j&#224;, donc pas la peine de lui donner le focus ...

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_Jack · Answer

Astuce en passant :
Quand tu fais un &#233;Entr&#233;e" dans une TextBox, le PC bip.
Pour &#233;viter le bip, il suffit de mettre ceci avant de quitter la Sub :
KeyCode = 0

PCPT · Answer

salut,

essai plut&#244;t de placer ton code au KeyUp ;)

marcod59 · Answer

Salut

Mon problème est que lorsque je rentre une donnée dans textbox2, je voudrais que lorsque je fais entrée le texbox2 soit denouveau activé. C'est le cas si j'utilise CBvalid, mais pas le cas en utilisant la touche entrée. Bref, je ne veux pas utiliser la souris pour activer le textbox2, et taper toutes mes données au clavier.
J'ai essayé avec KeyUp et c'est la même.

Merci @+++

Prendre le focus

5 réponses

Discussions similaires