Discussion :

[Jipété]

Bonjour,

Tout est dans le titre.
Il me semble avoir lu ici et là qu'il n'était pas possible de faire un SetFocus sur un TextBox. J'ai dû lire des bétises car si je mets un bouton sur ma Form et l'instruction TextBox1.SetFocus dans son évènement Click, quand je clique ça le fait.
Pouquoi cela ne fonctionne pas dans UserForm_Initialize ?
Comment faire, alors ?
Merci d'avance,
--
Jean-Pierre

[ouskel'n'or]

Il existe une propriété TabIndex pour tous les contrôles que tu places sur userform.
Si, par construction, tes contrôles n'ont pas été placé dans l'ordre de saisie, tu peux redéfinir cette propriété dans Useform_Initialise() (ou _Load() ? )
Pour placer le focus de ta textbox à l'ouverture de l'userform, tu dois donc mettre

Code :

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

TextBox1.tabindex = 1

Il en va de même de tous tes contrôles.
L'idéal est de à l'avance la structure de ton userform et d'ajouter les contrôles dans le bon ordre
A+

[Jipété]

Merci pour la réponse, sauf que

1. j'ai placé mes contrôles en fonction de l'ordre de tabulation ;
2. ta suggestion (TextBox1.TabIndex = 1 ou 0 ou ...), ne fait rien...

Mystérieux, VBE...

Des précisions à propos de ce problème : Ce TextBox placé sur ma form est le 1er dans l'ordre de tabulation ; si je "tourne en rond" dans les contrôles, un <TAB> sur le dernier contrôle place bien le focus sur celui qui me préoccupe. Me demande si ça n'est pas lié à l'affichage de la form...
Passer par les messages Windows ? Comment les appelle-t-on depuis VBE ?
--
Jean-Pierre

[Pierre Fauconnier]

bonjour

Il est préférable de définir la propriété TabIndex des contrôles en mode création de ton userform, et pas par programmation VBA.

Ainsi, le contrôle ayant TabIndex égal à 0 (zéro) sera le contrôle actif à l'initialisation de ton userform.

Si tu ne vois pas les propriétés de tes contrôles dans VBE (éditeur de VBA), va dans Affichage/Fenêtre propriétés ( F4)

Ok?

[ouskel'n'or]

Entièrement d'accord avec Pierre Fauconnier, il est préférable de le faire au moment de la création (TabIndex = 0 au lieu de 1 mis à part, pour le premier TabIndex...)
Ceci dit, si tu as un grand nombre de contrôles sur ton userform, que ton code est renseigné, tu peux encore modifier manuellement TabIndex. Le pb est que chaque fois que tu en modifies un, un autre est modifié sans que tu puisses prévoir lequel.
Essaie d'effectuer cette modification par le dernier de tes contrôles et de redescendre vers le 1er.
Et prends en compte que le premier a l'index 0

Si tu peux, vaut mieux reconstruire ton userform depuis zéro.

[Pierre Fauconnier]

...(TabIndex = 0 au lieu de 1 mis à part, pour le premier TabIndex...)

Que veux-tu dire? Le premier tabindex est bien 0... Me trompe-je?

[Jipété]

Re, Pierre.

Merci de tes tuyaux (que je connaissais déjà, après 10 ans de fréquentation de Delphi et un peu de VB4-6 de tps en tps).

Le problème viendrait-il du fait que le TextBox concerné est posé sur un Multipage ?
J'ai eu beau mettre TabStop = False, à ce Multipage, rien...
Ça me rend fou, ce truc...

[edit]

Si tu peux, vaut mieux reconstruire ton userform depuis zéro.

On peut toujours tout, mais c'est dingue, alors ![/edit]
--
Jean-Pierre