showmodal & Setfocus dans VBARésolu

Question

J'utilise  3 userforms qui sont tous SHOWMODAL = FALSE,
chaque userform contient un textbox, et lorsque un texte 
est saisie au clavier, je valide avec ENTER pour passer à
 la feuille suivante:

dans la sub de KEYPRESS je fais:
userform1.hide
userform2.show

Le problème s'est que j'ai besoin d'avoir le focus sur chaque 
textbox de chaque userform, donc dans la sub userform2.activate
 je fais:

textbox1.setfocus

Arriver à userform3 je revalide mon champ textbox1 avec la touche
ENTER pour réafficher la feuille userform1 et là gros problème
le textbox n'a pas le focus (meme avec la fonction textbox1.setfocus
 dans userform1.activate)
Le textbox s'emble en effet ne pas avoir le focus ( en fait le curseur
ne clignote pas et rend impossible la saisie du controle textbox directement
du clavier, je pourrais biensur utilisé ma souris et cliquez sur le controle
textbox pour récuperer le focus, mais le problème c'est que je ne doit justement pas utiliser la souris!)

Pour résoudre se problème on pourait tous simplement mettre
ShowModal = True mais la pile des appels ne va pas aimer très
longtemps et on se retrouve avec une ERREUR 28
(bien entendu il n'est pas question de déchargé les feuilles
avec UNLOAD! )

C'est un vrai casse-tête...

sanson42 · Accepted Answer

J'ai essayer toutes les infos que vous m'avez faite passer et elle ne fonctionne pas dans ce cas, mais j'ai trouver une solution que vous donne si un jour vous avez le même problème:

il suffit de faire :

textbox1.visible = false
textbox1.visible = true
textbox1.setfocus

et voila le tour est joué!

ScSami · Answer

As-tu essay&#233; de redonner le focus via la proc&#233;dure &#233;v&#233;nementielle _Enter :
Private Sub TextBox1_Enter()
 TextBox1.SetFocus
End Sub

Ou un truc du genre...

???

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

cs_eldim · Answer

Bonjour,

Essaye de mettre sur l'&#233;v&#233;nement activate de chaque form
on error resume next
text1.setfocus

kalobit · Answer

Salut,

utilise un controle miltipage, comme &#231;a tu n'as plus qu'une feuille et plus de pb de setfocus.

ScSami · Answer

C'est pas non plus une mauvaise id&#233;e!

Mais dit moi... connais-tu la fonction qu'a la touche "tab" pour le focus ??? Et Shift+Tab ???

(Shift = MAJ pour info)

On peut presque tout faire sans la souris... si on sait se servir correctement de son clavier! 

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

Showmodal & Setfocus dans VBA

5 réponses

Discussions similaires