Sélection textbox d'un userform

[David590]

Bonjour à tous,

Quand j'ouvre un userform avec "UserForm1.Show 0", j'aurais besoin que la textbox de l'userform reste sélectionnée, mais des que j'utilise des boutons en dehors de l'userform, elle se désélectionne

Comment puis-je figer le curseur sur la textbox1 de l'userform?

Merci d'avance

 

[Pierrot93]

Re : Sélection textbox d'un userform

Bonjour,

Quand j'ouvre un userform avec "UserForm1.Show 0", j'aurais besoin que la textbox de l'userform reste sélectionnée, mais des que j'utilise des boutons en dehors de l'userform, elle se désélectionne

pas sur d'avoir tout compris, mais supprime peut être le 0 :

UserForm1.Show

bon après midi
@+

 

[David590]

Re : Sélection textbox d'un userform

Bonjour Pierrot,

Effectivement, si j’enlève le 0, la textbox reste sélectionnée, mais je ne peux plus utiliser les boutons de la feuille
Je pense à un code à mettre dans les boutons de la feuille qui renvoi sur la textbox de l'userform
J'ai essayé UserForm1.textbox1.SetFocus mais ça ne fonctionne pas

 

[Pierrot93]

Re : Sélection textbox d'un userform

Re,

essaye avec ceci dans le code de tes boutons :

AppActivate ("UserForm1")

 

[David590]

Re : Sélection textbox d'un userform

ça réactive bien l'userform mais pas la textbox

 

[Pierrot93]

Re : Sélection textbox d'un userform

Re,

pour le vérifier, dans le code de ton bouton :

AppActivate ("UserForm1")
UserForm1.TextBox1.SetFocus
MsgBox UserForm1.ActiveControl.Name

 

[David590]

Re : Sélection textbox d'un userform

Avec ton code il me dit bien que textbox1 est active, mais le curseur n'est pas dessus et je ne peux donc pas saisir directement, j'ai fait un fichier pour que tu vois mieux le problème

 

[Pierrot93]

Re : Sélection textbox d'un userform

Re,

pas d'autre idée pour le moment...

 

[Pierrot93]

Re : Sélection textbox d'un userform

Re,

peut être en donnant au préalable le focu à un autre contrôle...

AppActivate ("UserForm1")
UserForm1.TextBox2.SetFocus
UserForm1.TextBox1.SetFocus

 

[laetitia90]

Re : Sélection textbox d'un userform

bonjour David590,l'ami Pierrot

on pourrait tenter

Private Sub Worksheet_Change(ByVal Target As Range)
  Unload UserForm1: UserForm1.Show 0
End Sub

 

[Pierrot93]

Re : Sélection textbox d'un userform

Re, bonjour Laetitia aarf bien vu....

 

[David590]

Re : Sélection textbox d'un userform

Bonjour Laetitia,

C'est tout simple et ça marche parfaitement

Merci à vous deux
@+