Evenement Key_press textbox / formulaire

Résolu
ph412 Messages postés 45 Date d'inscription   Statut Membre Dernière intervention   -  
 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 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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