Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 UserForm : forcer la saisie sur le textBox

Sylvain133

XLDnaute Nouveau
Bonjour à tous,

J'aimerais savoir comment à l'ouverture d'un UserForm on peut faire pour ne pas cliquer sur la texteBox pour pouvoir saisir du texte mais être directement dessus (sans aide de la souris).

En vous remerciant d'avance pour vos retours.
 

Sylvain133

XLDnaute Nouveau
En illustration voici mon problème (cf.1) et ce que je veux obtenir en ouvrant l'userform sans passer par un clique sours (cf. 2). Sachant que la textbox se situe dans un frame (cadre).
 

Pièces jointes

  • cf1.PNG
    2.6 KB · Affichages: 22
  • cf2.png
    2.7 KB · Affichages: 19

patricktoulon

XLDnaute Barbatruc
simple
met 0 a la propriété tabindex de ta frame et pareil au textbox
se sera donc le premier controls dans la liste des controls du userform
comme c'est une fenêtre a part entière (et oui elle a un handle) elle active donc son premier controls
voila terminé
 

Sylvain133

XLDnaute Nouveau
Je vous explique plus clairement, ci-dessous voici mon frame avec mon textbox et mes 2 bouttons. Le boutton "VALIDER" s'active en appuyant sur la touche "Entrée" du clavier (car j'ai mis en propriétés par Default=TRUE). J'aimerai que le boutton "ACTUALISER" s'execute quand on appuie sur la touche F5 du clavier. Merci pour vos réponses encore.
 

Pièces jointes

  • cf2.png
    2.7 KB · Affichages: 7

patricktoulon

XLDnaute Barbatruc
re
touche F5= keycode 116
si tu es dans ton textbox
j'ai choisi le keyup plutot que le keydown car le focus peut être libéré (probleme avec les textbox )et en plus l'execussion est plus rapide
VB:
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 116 Then bouton1_click
End Sub
change "bouton1" pour le nom de ton bouton
 

Discussions similaires

Réponses
93
Affichages
2 K
Réponses
15
Affichages
579
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…