Evenement Key_press textbox / formulaire [Résolu/Fermé]

Signaler
Messages postés
45
Date d'inscription
mercredi 10 décembre 2014
Statut
Membre
Dernière intervention
11 décembre 2017
-
 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

Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
2 593
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Merci c'est top !!