Evenement Key_press textbox / formulaire

Résolu
ph412 Messages postés 49 Statut Membre -  
 Ph412 -
Bonjour,

Je souhaite que dans une formulaire un utilisateur indique des mots dans une textbox.

A chaque fois qu'il appuiera sur "entrée" la valeur de la textbox sera transmise dans une listbox.

Mon problème c'est qu'a chaque fois que j'appuie sur la touche entré d'une textbox, la selection/focus se place sur un autre contrôle du formulaire.

Comment arrêter cela ?
j'imagine que ça à avoir avec tablstop et tabindex mais je pige pas

Merci


Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then
ListBox2.AddItem TextBox2.Value
End If

1 réponse

pijaku Messages postés 13513 Statut Modérateur 2 763
 
Bonjour,

Comme ceci :

Pour sortir du textbox, appuyez sur Tabulation ou fermez l'userform

Option Explicit

Private NeSortPas As Boolean

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = ""
Cancel = NeSortPas
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Or KeyCode = 10 Then
   NeSortPas = True
   ListBox1.AddItem TextBox1
ElseIf KeyCode = 9 Then NeSortPas = False
End If
End Sub


1
Ph412
 
Merci c'est top !!
0