donner le focus à un contrôle

[Philippe]

Bonsoir le forum,

j'ai un problème avec un USF dans lequel j'ai des textbox où après la gestion de la saisie et la détection d'une erreur, après avoir envoyé une msgbox 'erreur, etc...', malgré l'instruction Texbox1.setfocus la textbox1 en question ne reprend pas le focus, celui ci passe à la textbox suivante...???? Kesako ??
Seconde question: comment faire pour que la textbox qui reçoit le focus ait la curseur qui clignote ?? Ceci ne se fait pas spontanément...

Merci de votre aide à tous.

 

[Baside]

Bonjour Philippe le forum

Je n'ai pas eu de réponse à mon post sur ce Lien supprimé

Peut être ne l'avez vous pas vu ?

Baside

 

[Philippe]

Bonjour Baside, le forum,

milles excuses Baside, j'explique les raisons de mon absence prolongée sur le fil en question...

Sinon, su Qqun à une idée pour mon prob. de focus sur les textbox...

 

[Philippe]

Un petit fichier joint pour être plus clair... [file name=focususf.zip size=9866]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/focususf.zip[/file]

 

[philippe]

Merci José,
j'ai essayé, ça ne donne rien



Je n'ai probablement pas bien compris ce qu'il faut faire, si tu peux préciser celà m'aiderait bien

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
a = TextBox1.Value
If a < 1 Or a > 10 Then
MsgBox 'Erreur de saisie', vbOKOnly + vbCritical
Controls('TextBox1').SetFocus
End If
Cancel=True
End Sub

Merci d'avance pour ton aide

 

[philippe]

il faut lire:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
a = TextBox1.Value
If a < 1 Or a > 10 Then
MsgBox 'Erreur de saisie', vbOKOnly + vbCritical
Controls('TextBox1').SetFocus
End If
Cancel=True
End Sub

 

[Philippe]

Resalut José,

Bon j'ai essayé ton code, ça redonne pas le focus à la textbox1 après le message d'erreur... c'est incroyable çà.... ça ménnneeeervee...

 

[Philippe]

Scusi amigo,

quand tu saisis une valeur erronée en textbox1, après le message d'erreur, tu fermes la msgbox en cliquant sur 'OK', tu te retrouves sur ton USF1 et ce que je voudrais c'est que le curseur clignotant soit activé dans la textbox1. Or ce n'est pas ce qui se passe chez moi....
Windows xp, office 2000....

 

[Philippe]

Salut josé,

first: je ne fume pas
secondo: j'ai bien entendu ouvert le fichier qu tu m'as envoyé et je te confirme qu'il dinne exactement le même résultat que mon fichier initial
tertio: j'ai trouvé la ruse suprème: ci-joint

 

[Philippe]

Ah bah tiens, c'est pas passé !!

 

[Philippe]

Décidémment... [file name=Focus2.zip size=11712]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Focus2.zip[/file]

 

[Philippe]

par ruse suprême j'entendais 'je suis enfin arrivé à mes fins avec exactement le résultat excompté', j'ai conscience de ne pas avoir écrit un code 'magique' (j'ai bien parlé de 'ruse')

Bon, sinon, je te confirme que j'ai bien chargé et testé ton fichier, lors d'une saisie erronée ds le textbox1, on a bien le message, çà OK, mais AUCUN contrôle ne prend le focus ensuite, il faut y aller à la main.... Si tu n'as pas le même résultat chez toi c'est super curieux ??? Quelle version d' OFFICE utilises tu ?

 

[Philippe]

ouais, c'est vrai que c'est bizarre,
bon de toutes façon ma 'ruse' marche bien et me donne le résultat escompté, j'en reste donc à cette soluce pour le moment.

Merci encore josé pour ton aide