focus video inverse dans USF

[evelynetfrancois]

BONSOIR le Forum...

lorsque j'initialise un USF
le curseur clignote aprés le mot initialisé dans le textbox1

Comment faire pour que ce mot soit sous le focus ?
de manière à ne pas être obligé de l'effacer pour resaisir autre chose .
Curieusement quand on passe au textbox2(suivant l'ordre de tabulation)en faisant entrée
lui se retrouve bien sous le focus!!(ainsi que les suivants)

merci de m'apporter votre precieuse aide
et en tout cas , bonne soirée
evelynetfrancois

 

[vincent]

Bonjour

je pense qu'il y a une meilleur solution mais en attendant en voilà une

Private Sub UserForm_Activate()
UserForm1.CommandButton1.SetFocus 'ici met le nom du controls qui se trouve juste avant le texbox1 dans l'ordre de tabulations
SendKeys "{tab}"
End Sub

Voilà

@+Vincent

 

[evelynetfrancois]

SUPER merci Vincent!!
j'ai juste utilisé [SendKeys "{tab}"] mis sur un controle "avant"
(en fait je l'ai mis sur "annule" ) puis il passe sur textbox1 ,suivant l'ordre de tab
ça va au poil
MERCI beaucoup
à plus
bonne soirée
Evelynetfrancois

 

[vincent]

Re

De rien

A plus sur le Forum

@+Vincent

 

[@+Thierry]

Salut ce Fil, et le Forum


Tiens un post où je ne vais pas raler !

Et je suis même heureux de vous faire partager une des seules astuces (Arf... The Only One... pour être sincère...) que j'ai appris à Frédérique Sigonneau qui avait cherché longtemps (même avec Laurent Longres) pour en arriver à une solution similaire de sendKeys....

Voici cette solution que j'ai publiée sur le MPFE

Private Sub UserForm_Initialize()
TextBox1.Value = "Entrez ici votre Texte"
End Sub

Private Sub UserForm_Activate()
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(TextBox1.Text)
End With
End Sub

En effet la difficulté, le piège, est d'essayer de tout faire en une seule phase dans l'initialisation du UserForm...

Bonne Soirée
@+Thierry

 

[vincent]

Re le fil salut Thierry

Merci pour l'astuce cela faisait un petit moment que je cherchais aussi une alternative au sendkeys.

@+Vincent

 

[@+Thierry]

You are Welcome Vincent !

Vaut mieux un qui à (finalement) trouvé que dix qui cherchent !!! lol

Bonne Nuit
@+Thierry

 

[Evelynetfrancois]

bonjour @+thierry et vincent....
résultat similaire sauf qu'avec sendkeys il faut determiner une tabulation
et dans l'autre cas on vas directement sur la cible?
enfin c'est ce que j'ai compris!!!!!!!
bravo merci pour tout
Evelynetfrancois

 

[@+Thierry]

Salut Evelyne, François, Vincent le Forum

Euh oui et non, quand on arrive à ses fins avec des SendKeys c'est un peu, beaucoup, (passionnément), du Système D, et de plus, dans ce cas précis, c'est carrément du bricolage puisque l'on SetFocus sur un autre Control pour ensuite se déplacer sur celui désiré dans l'ordre des Tabulations... Alors gaffes si tu ajoutes un autre Control à l'ordre de Tabulation alors qu'avec la méthode décrite ci-dessus, on peut absolument tout changer dans le UserForm, du moment que la Textbox1 existe encore !!

Bonne Soirée
@+Thierry

 

[Evelynetfrancois]

ok enregistré
merci encore
Evelynetfrancois