[VBA]textBox et entrerRésolu

Question

Salut!!

J'utilises Exel 2002 SP2 et VBA.
J'utilise une textBox pour remplir une listBox.

Lorsque j'appuie sur entrer, le contenu de la textbox est copié dans la listBox.
J'aimerais que le focus reste sur la textBox, et ne fasse plus ofice de tabulation (passage à l'objet suivant).
Comment s'y prendre?

J'utilises l'évenement KeyDown

J'ai testé "maTextBox.SetFocus" mais sans effet..
J'ai aussi remarquer que si je fais Shift+Entrer, le focus reste dans la textBox, ce que je souhaite.

Merci pour votre aide :)

cs_MPi · Accepted Answer

Tu fais donc la même chose que JMF t'a dit, mais en utilisant KeyDown et en remplaçant KeyAscii par KeyCode

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        ListBox1.AddItem TextBox1.Text
        TextBox1.Text = ""
        KeyCode = 0
    End If
End Sub

MPi

jmfmarques · Answer

Utilise l'événement keypress de cette façon :

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    List1.AddItem Text1.Text
    Text1.Text = "" '  si tu veux en plus rendre à nouveau vide ta textbox
    KeyAscii = 0
  End If
End Sub

Ceci étant dit : sais-tu à quoi sert une comboBox ?
Tu devrais t'y intéresser, car c'est précisément la "conjugaison d'une textBox" et d'une ListBox !!!

aurelien2723 · Answer

non je ne sais pas pour la combobox, dsl.

La touche entrer ne déclenche pas l'évenement keypress en vba, c'est pouruoi j'utilises key down.
Y'a pas un paramètres de la textbox pour dire à entrer de pas faire tab?
comme "enterKeyBehavior" ?

Merci :)

aurelien2723 · Answer

aurelien2723 · Answer

c'est bien ce que j'avais fait MPi pour la déclaration de la fonction.

Par contre j'ai trouvé ce qui arréte le "tab" de la touche entrer,(changement de focus)
C'est le KeyCode = 0  !

Merci à tous pour votre aide et vos réponses! :)

[VBA]textBox et entrer

5 réponses

Votre réponse

Discussions similaires