Discussion :

[bybelos33]

J'ai fait un Userform que j'affiche. Je souhaite qu'à l'affichage le curseur du texte vienne directement se positionner dans la case texte.
Est-ce possible ?

D'autre part je n'arrive pas à valider le UserForm en appuant sur la touche entrée. Les deux fonctions :
Private Sub UserForm_KeyPress....

et

Private Sub UserForm_Keydown....

Merci

[ouskel'n'or]

Qu'entends-tu par

D'autre part je n'arrive pas à valider le UserForm

?
Pour que l'événement KeyUp ou l'événement KeyDown soit intercepté tu as deux solutions : Vider ton userform de tous les contrôles (Visible = false pour tous) ou sinon ça devient tout de suite plus compliqué.
Pourquoi as-tu besoin de ces événements ?
A+

[zazaraignée]

Mets la propriété TabOrder de ton premier champs à zéro.

Pour la validation, regarde dans l'aide du côté de l'événement Validate.

[tirex28]

Bonsoir,

Soit un userform contenant un textbox 'TextBox1' et un bouton 'btnOK'

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then btnOK_Click '13=Enter
End Sub
 
Private Sub btnOK_Click()
    MsgBox "Click sur OK"
End Sub

Appuyer sur entree lorsque le focus est sur le textbox equivaut a cliquer sur le bouton ok.

Cordialement,

tirex28

[bybelos33]

Merci à tirex28...cela fonctionne comme je le souhaite.

Par contre, zazaraignée je ai trouvé ta fonction Tabindex au lieu de Taborder mais le curseur ne s'affiche pas. Apparemment c'est bien le premier champ mais pas d'apparition du curseur. Mon premier champ s'appele Textbox1

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub UserForm_Initialize()
TextBox1.TabIndex = 0
End Sub

[tirex28]

Par contre, zazaraignée je ai trouvé ta fonction Tabindex au lieu de Taborder mais le curseur ne s'affiche pas. Apparemment c'est bien le premier champ mais pas d'apparition du curseur. Mon premier champ s'appele Textbox1

Bonjour,

Essaye d'ajouter ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub UserForm_Activate()
    TextBox1.SetFocus
End Sub

Tirex28/