Discussion :

[Oh!Tofocus]

Bonsoir les amis.....
J'ai un problème avec un userform :

Sur mon Userfor il y a:
une TextBox1 et un Bouton

je voudrais entrer une valeur dans la textbox puis quand on valide par Enter placer cette valeur dans la colonne A et faire en sorte que la TextBox garde le Focus pour une autre saisie.

voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim L As Integer
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Range("A" & L).Value = TextBox1.Value
L = L + 1
TextBox1.Value = ""
TextBox1.SetFocus
End Sub
Private Sub UserForm_Initialize()
L = 1
TextBox1.SetFocus
End Sub

Mais ça ne marche pas

[pgz]

Bonjour

As-tu essayé au lieu de

Code :

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

TextBox1.SetFocus

écrire

Code :

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

Cancel = True

?


PGZ

[Oh!Tofocus]

OK, Merci beaucoup.

Je ne comprends pas trés bien le raisonnement mais ça marche.

[pgz]

Bonjour.

La procédure évènementielle EXIT a un argument Cancel. Si dans la procédure tu lui attribues la valeur VRAI, l'évènement est annulé.
Il y a de nombreux évènements qui peuvent être annulés ainsi.

PGZ

[Oh!Tofocus]

En fait ça ne marche pas si bien que ça !

Je n'arrive pas à appuyer sur le bouton
quand je clique sur le bouton, l'userform semble enregistrer un Enter dans le ToxtBox1 et c'est tout.

que faire ?

[pgz]

Il sert à quoi le bouton?