Positionnement curseur dans userform

Version imprimable

21/06/2007, 17h37
bybelos33

Positionnement curseur dans userform

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
21/06/2007, 20h26
ouskel'n'or

Qu'entends-tu par

Citation:

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+
21/06/2007, 21h42
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.

Bonsoir,

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

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

22/06/2007, 07h50
bybelos33

Complément

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

Code:

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

22/06/2007, 09h35
tirex28
Citation:

Envoyé par Bibelosse

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:

1 2 3 4 Private Sub UserForm_Activate() TextBox1.SetFocus End Sub
Tirex28/
22/06/2007, 09h40
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 ???
22/06/2007, 09h51
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
22/06/2007, 12h11
bybelos33

Plus d'explication

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
26/06/2007, 15h10
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:

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+
27/06/2007, 09h49
lvr

Citation:

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

Et l'Anglais, vous connaissez ? 8-)

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".
29/06/2007, 14h05
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 ?
29/06/2007, 14h11
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
29/06/2007, 14h16
ouskel'n'or
Citation:

Envoyé par lvr

Et l'Anglais, vous connaissez ? 8-)

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 ! :aie:
(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 :langue: )

Pour le pb de Bibelosse, j'ai testé
Code:

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"
29/06/2007, 15h21
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.