forcer le curseur de la sourie

[angoul]

bonjour,

Voila dans une userform avec plusieurs boutons et textboxs

je passe de l'un a l'autre par la sourie ou la touche tab

j'aimerai obliger mon curseur de la sourie a revenir au textbox1 quand je clique sur le bouton1 par exemple


peut ton aussi obliger le curseur de la sourie a venir dans un textbox a l'ouverture de l'userform.

merci d'avance de votre aide

 

[Temjeh]

Re : forcer le curseur de la sourie

Bonjour

Oui

Private Sub UserForm_Initialize()

TextBox1.setFocus 

End Sub

A++
Ce lien n'existe plus

 

[angoul]

Re : forcer le curseur de la sourie

merci de ta reponse, mais peut tu etre plus clair
car je suis pas bon en VBA, c'est pour la premiere question ou la deuxieme?
je doit mettre sa ou??

 

[Temjeh]

Re : forcer le curseur de la sourie

Rebonjour

Ton code sous ton bouton:
bla
bla
bla
TextBox1.setFocus

Pour à l'ouverture de ton usrform clic 2 coups dans le fond et colle le code au complet:

Private Sub UserForm_Initialize()

TextBox1.setFocus 

End Sub

Exemple dans la procèdure UserForm_Initialize il fait une action quand le UserForm se charge:

TextBox1=1
Label1.caption="Bonjour"
Bon aussi pour Initialisé aussi une liste de ListBox

A++
Ce lien n'existe plus