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/

[bybelos33]

J'ai déjà essayé et cela ne fonctionne pas.

En fait j'ai l'impression que l'index de tabulation du frame prend le dessus car je n'arrive pas à changer son index...il reste à zéro.

En fait sur mon userfrom j'ai fait "Bouton-droit" et j'ai regardé l'ordre de tabulation. Textbox1 est bien en premier ???

[lvr]

1) Le problème de la validation automatique:
Je ne suis pas sur que la solution de tirex28 soit nécessaire.

Si dans les propriétés de ton btnOK tu mets la propriété "Default" à "True", cela devrait fonctionner sans que tu n'aies à faire un event KeyDown sur tous les champs.

Idem pour la touche "Echap" et la propriété "Cancel" des boutons.


2) Pour le problème de Tab, la solution de zazaraignée devrait fonctionner, mais elle l'a mal exprimée. Il ne s'agit pas d'une propriété de ton champ texte.

Va dans le menu "View", là tu trouveras "Tab Order". Places-y en tête de liste le champ dans lequel tu souhaites le focus au démarrage.

Tiens-nous au courant.

Laurent

[bybelos33]

Merci pour la première astuce cela fonctionne parfaitement.

Par contre je ne sais pas ou touver le menu de ta deuxième remarque ?

Peux tu m'en dire plus ?

Merci

[ouskel'n'or]

Je pense que lvr donne une solution VB6 (ou ultérieure à Office 2003)
Dans VBA-Excel, je ne connais pas non plus le menu View.
pour te placer directement sur un contrôle à l'ouverture de l'userform, tu peux tester

Code :

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

1
2
3
Private Sub UserForm_Activate()
TextBox1.setfocus
End Sub

Je n'ai pas suivi ton problème de Tab. Tu peux expliquer ?
A+

[lvr]

Dans VBA-Excel, je ne connais pas non plus le menu View.

Et l'Anglais, vous connaissez ?

J'ai trouvé un VBA en français sur mon PC. "View" en français s'écrit "Affichage" et "Tab Order" donne "Ordre de tabulation".

[bybelos33]

Merci pour la leçon de traduction cependant cela ne fonctionne pas....

Merci pour ton aide ouskel'n'or mais cela ne fonctionne pas non plus. Peut-être ai-je oublié un paramètre ?

[jfontaine]

Une solution qui n'est pas top mais qui fonctionne.

1 - Tu mets tous tes objets a enable=false
2 - Tu mets la txtbox souhaité a enable=true
3 - tu mets les autres objets a anable=true

le curseur se trouve dans la txtbox souhaité quelque soir l'ordre des TAB

Jérôme

[ouskel'n'or]

Et l'Anglais, vous connaissez ?

J'ai trouvé un VBA en français sur mon PC. "View" en français s'écrit "Affichage" et "Tab Order" donne "Ordre de tabulation".

Alors pourquoi ne pas le dire en français ? C'est vrai, quoi !
(en fait je cherchais "ailleurs" n'ayant jamais eu besoin de ça, un projet bien conçu au départ évitant d'avoir à se préoccuper de l'ordre )

Pour le pb de Bibelosse, j'ai testé

Code :

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

1
2
3
Private Sub UserForm_Activate()
TextBox1.setfocus
End Sub

et je me retrouve bien dans cet objet

Il serait intéressant de connaître tout ton code placé dans "UserForm_Activate"

[zazaraignée]

Il arrive parfois que l'index de tabulation n'accepte pas de mettre une valeur déjà existante. Dans ces cas là, j'utilise un valeur temporaire comme 255 pour remettre de l'ordre dans tout ça. C'est un peu long, mais ca finit par marcher.

Pour la validation avec la touche Entrée (je m'excuse si c'est déjà résolu pour cette partie, j'ai pas tout lu le 'thread'), en mettant la propriété Default de ton bouton à True, ça devrait marcher. Ne pas oublier de mettre la propriété Cancel du bouton Annuler à True.