Discussion :

[ptissendier]

Bonjour à tous,
Ça fait trois jours que je cherche sur tous les forums, mais je n'arrive pas à trouver une solution.
Voici mon problème.
J'ai construit un userform avec des textbox.
Dans la procedure userform_Initialize j'ai écris :

Code :

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

Me!TextBox1.SetFocus

(ça ne marche pas, TextBox1 est bien Enabled.) une fois l'usf affiché, il faut que je clique sur le controle pour activer le curseur.
Pour controler mon TextBox dans la procedure Exit (ou BeforeUpdate) de TextBox1 j'ai écris

Code :

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

Cancel=MonTest(ActiveControl)

Dans la fonction MonTest j'ai :

Code :

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

1
2
3
4
5
6
7
Function MonTest(d as Control) as Booleen
        if d <> "toto" then
           MsgBox ("vous devez saisir 'toto' ")
           d.SetFocus
           Montest=True
        end if
end function

Eh bien après la msgbox je suis bien dans la textbox1 mais je n'ai pas de curseur, ni de données sélectionnée, il faut que je clique sur le controle pour activer le curseur et la sélection de texte erroné.
Merci de votre lecture et éventuellement de votre solution.

[gFZT82]

Bonjour,

Peu de choses à redire, à part
Me!TextBox1.SetFocus au lieu de Me.TextBox1.SetFocus
et Booleen au lieu de Boolean.
Voir classeur test.

Cordialement.

[ptissendier]

Merci gFZT82,
En réalité l'usf est un peu plus "complexe". Je le poste en fichier attaché.
Je ne comprend pas pourquoi le setfocus ne marche pas.
Même à l'ouverture du usf.
Merci pour votre avis, si ce n'est pas trop demander
Cordialement.

[gFZT82]

Bonjour,

C'est lié à l'affichage non modal de l'USF.
Voir exemple.

[ptissendier]

Merci, merci
Je venais juste de trouver avant de lire votre réponse et j'allais mettre le fil à résolu .
Je vous suis vraiment très reconnaissant d'avoir pris le temps de regarder mon code .
Mais d'après vous est-ce un bug ou une réaction normale ?

Encore merci.

[gFZT82]

Mais d'après vous est-ce un bug ou une réaction normale ?

Je vais éviter de m’aventurer dans une explication car les essais que j’ai effectués sur ton fichier ne m’ont pas permis de tout comprendre.
Au départ, je pensais qu’il s’agissait simplement d’un problème de zone active (le mode non modal permettant de naviguer entre les feuilles et l’USF).
En supprimant l’activation des feuilles "Listes" et "ODM" réalisées dans la procédure UserForm_Initialize() ainsi que le setfocus de la procédure UserForm_Activate(), j’ai obtenu le résultat attendu à savoir le focus sur la TextBox correspondant au numéro de mission. Je n’ai d’ailleurs pas eu besoin de forcer le focus sur cette TextBox car elle est en 1ere position dans l’ordre de tabulation.
Mais ... , si par programme je demande à placer le focus sur une autre TextBox, j’observe que le curseur est invisible alors que le focus s’est bien déplacé (un test avec la tabulation montre que le focus est bien positionné). Et à partir de là, je suis sec. ..
Pour ton problème, la question se résume donc à savoir si tu as besoin d’un affichage non modal ou pas.

Cordialement.