[VBA-E]Changer de focus

**Elstak** · 19/05/2006, 15h33

coucou,

j'ai un userform avec 2 textbox.

j'aimerai que lorsque l'on est dans le textbox1, quand on press sur tab, que le curseur aille dans le textbox2

j'avais trouvé keypress ca erssemblait à mon attente mais bon...

Un événement KeyPress ne se déclenche pas lorsque l'utilisateur appuie sur l'une des touches suivantes :

TAB.
ENTRÉE.
Une touche de direction.

Un petite piste?

**jmfmarques** · 19/05/2006, 15h36

Evénement keydown
Keycode
pour tab : keycode = 9

**Elstak** · 19/05/2006, 15h50

ok merci

mais je comprend pas comment l'utiliser, dans l'aide leur exemple correspond pas du tout à ce que je cherche à faire

J'ai testé de mettre ce code dans ma userform (biensur ca ne va pas)

Code :

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

1
2
3
4
 
Private Sub object_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As fmShiftState)
    responsivness.TextBox2.SetFocus
End Sub

où dois je utiliser la valeur "9" ? et à quoi correspond le second parametre "Shift"? la encore je comprend pas l'explication de l'aide...

**jmfmarques** · 19/05/2006, 15h55

Ah !
Est-ce si difficile de dire que si keycode = 9 alors je donne le focus à machin_contrôle ?
quant à Shift (pression sur la touche Maj en même temps) tu n'as pas à t'en préoccuper ici, ma foi !

**Elstak** · 19/05/2006, 16h03

ok merci

jverrais ca lundi parce que là...

Ca y'est c'est le week end !!!!!!!! (

)

**jmfmarques** · 19/05/2006, 16h09

OK Elstak !
Mais d'ici là :
un petit truc : keyDown te permet également d'utiliser les flêches

(et c'est encore mieux que tab)
pour connaître le code Keycode des flêches ? Fastoche : dans un événement Keydown : msgbox keycode.... tu appuies sur une flêche... et tu en connais le code

(valable pour une textbox)Et, si tu es malin, tu joues avec les flêches haute, gauche, droite et basse pour naviguer comme tu l'entends !

**Catbull** · 19/05/2006, 16h29

Ou plus lisiblement utiliser les constantes définis dans le module KeyCodeConstants.

Avec l'automation c'est facile de retrouver ces constantes :

KeyCodeConstants.vbKeyDown
KeyCodeConstants.vbKeyUp
KeyCodeConstants.vbKeyTab
Etc...

Il n'est pas obligatoire d'utiliser KeyCodeConstants. On peut directement tapper le nom des constantes (mais plus d'automation) :

vbKeyDown
vbKeyUp
vbKeyTab

**AlainTech** · 19/05/2006, 20h51

Je ne comprends pas bien pourquoi il faudrait jouer avec des KeyJeNeSaisQuoi alors que c'est tout à fait intégré dans le comportement d'un UserForm:

Envoyé par L'aide en ligne

TabKeyBehavior Property

Determines whether tabs are allowed in the edit region.

Syntax

object.TabKeyBehavior [= Boolean]

The TabKeyBehavior property syntax has these parts:

Part Description

object Required. A valid object.
Boolean Optional. The effect of pressing TAB.

Settings

The settings for Boolean are:

Value Description

True Pressing TAB inserts a tab character in the edit region.
False Pressing TAB moves the focus to the next object in the tab order (default).

Remarks

The TabKeyBehavior and MultiLine properties are closely related. The values described above only apply if MultiLine is True. If MultiLine is False, pressing TAB always moves the focus to the next control in the tab order regardless of the value of TabKeyBehavior.
The effect of pressing CTRL+TAB also depends on the value of MultiLine. If MultiLine is True, pressing CTRL+TAB creates a new line regardless of the value of TabKeyBehavior. If MultiLine is False, pressing CTRL+TAB has no effect.

Copyright(c) 1996 Microsoft Corporation.

Il suffit juste de mettre le bon TabIndex dans chaque contrôle.

**sovo** · 19/05/2006, 21h13

oui c'est vrai on peut le faire directement (et automatiquement) en mettant le bon tabindex (probleme resolu pour tab) et pour entrer et les touches directionnelles comment tu geres cela ?? code oblige.

pour ma part je partirais plutot avec un keypress.

**AlainTech** · 19/05/2006, 21h23

Je me réfère juste au contenu de la question originale et pas de toutes les dérives qui en ont suivi.

**sovo** · 19/05/2006, 21h37

a moins de me trompe de discution (et j'en doute fort), voici la question originnale

Envoyé par Elstak

coucou,

j'ai un userform avec 2 textbox.

j'aimerai que lorsque l'on est dans le textbox1, quand on press sur tab, que le curseur aille dans le textbox2

j'avais trouvé keypress ca erssemblait à mon attente mais bon...

Un événement KeyPress ne se déclenche pas lorsque l'utilisateur appuie sur l'une des touches suivantes :

TAB.
ENTRÉE.
Une touche de direction.

Un petite piste?

et je vois apparaitre le "ENTREE" et les "touches directionnelles".

**jmfmarques** · 19/05/2006, 21h51

Le seul problème est que, dans certaines applications, on peut vouloir établir, pour faire face à une situation, un setfocus différent de celui prévu dans l'ordre des tabindex. Celà peut, entre autres, arriver avec des applications relatives à l'état-civil. Une incohérence relevée ici ou là doit quelquefois carrément "ramener" en arrière au contrôle (textbox en général, mais aussi listbox quelquefois) à modifier (situations provoquées par la découverte d'un âge, par exemple, ne permettant pas de continuer une saisie cohérente). La réaction du tab doit alors répondre à une logique différente de l'ordre des tabindex et celà se fait avec des expressions conditionnelles.

**AlainTech** · 19/05/2006, 22h10

Je vais finir par me demander si je lis bien...

La question:

Envoyé par Elstak

j'ai un userform avec 2 textbox.

j'aimerai que lorsque l'on est dans le textbox1, quand on press sur tab, que le curseur aille dans le textbox2

Une piste:

Envoyé par Elstak

j'avais trouvé keypress ca erssemblait à mon attente mais bon...

Une désilusion:

Un événement KeyPress ne se déclenche pas lorsque l'utilisateur appuie sur l'une des touches suivantes :
TAB.
ENTRÉE.
Une touche de direction.

**jmfmarques** · 19/05/2006, 22h16

C'est pour celà qu'existe keyDown
et que keycode et keyascii sont deux choses différentes (keyascii pour keypress, sans reconnaissance du tab, etc...) et keycode avec Keydown(pour le tab etc...)

**riesseg** · 19/05/2006, 22h21

je sais pas comment c'est sous vba...

Mais sous vb6, il le fait automatiquement et il suis en fonction de l'attribut TabIndex.

1 = ou ce place le focus quand la page s'affiche
2 = ou il ira si je fais tab
3 = si je suis sur 2 et je fais tab...

etc

**sovo** · 19/05/2006, 22h33

cette methode riesseg

n'est valable que pour le tab et si je veux utiliser le ENTRER pour passer au controle suivant (meme philosophie que tab, donc ..), mais si aussi je voulais aller au controle precedent, au celui de gauche ou droite comment je fait ??

**riesseg** · 19/05/2006, 22h47

pour aller au precedent ??

y'a un truc, pas si connus que ca, mais implementer sous win, linux, et dans tous les logiciels de fait...

SHIFT + Tab :p

Apres j'sais pas pour les fleches de cotes... sur la, il faut le OnKeyPRess.

Mais etant donné la demande

j'aimerai que lorsque l'on est dans le textbox1, quand on press sur tab, que le curseur aille dans le textbox2

J'crois que mon truc est achement plus simple que vos KeyPress ^^
Moi c'est du 0 code ( si y'a le mme attribut sur VBA

)

**jmfmarques** · 19/05/2006, 22h48

Pour moi : il s'agit de voyager de contrfôle en contrôle en utilisant les tab, flêches etc... sans nécessairement avoir quitté le contrôle !
Keydown esiste-t-il ou nnon, en VBA ?
Si oui, je fais un exemple en vitesse et chacun comprendra !
Si non : tout tombe à l'eau !

EDIT : que suis-je distrait !
un exemple tout fait avec VB ici :
http://jmarques.developpez.com/sourc...degres1et2.zip
les flêches permettront de naviguer de textbox en textbos et le tab de contrôle en contrôle (tous les contrôles)