TextBox de saisie répétitive

Version imprimable

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:

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 :(

10/12/2008, 19h45
pgz

Bonjour

As-tu essayé au lieu de

Code:

TextBox1.SetFocus

écrire

Code:

Cancel = True

?

PGZ
11/12/2008, 08h56
Oh!Tofocus

OK, Merci beaucoup.

Je ne comprends pas trés bien le raisonnement mais ça marche.:?
11/12/2008, 09h49
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
11/12/2008, 19h07
Oh!Tofocus

:cry:
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 ?
11/12/2008, 19h19
pgz

Il sert à quoi le bouton?
11/12/2008, 19h27
Oh!Tofocus

Le Bouton c'est pour lacer une macro qui va traiter la liste générée par la saisie.

Tu peux essayer cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Dim bChange As Boolean
Dim L As Long
 
Private Sub CommandButton1_Click()
MsgBox "coucou"
End Sub
 
Private Sub TextBox1_Change()
bChange = True
End Sub
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If bChange Then
    Application.ThisWorkbook.Sheets("Feuil1").Range("A" & L).Value = TextBox1.Value
    L = L + 1
    TextBox1.Value = ""
    Cancel = True
    bChange = False
End If
End Sub
 
Private Sub UserForm_Initialize()
L = 1
bChange = False
TextBox1.SetFocus
End Sub

PGZ

Je pense avoir résolu le problème
Je ne pourrais pas dire pouquoi ça marche :roll:

j'ai rajouté un test de TextBox1.value=""
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Dim L As Integer Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1.Value = "" Then 'rien Else Range("A" & L).Value = TextBox1.Value L = L + 1 TextBox1.Value = "" Cancel = True End If End Sub Private Sub UserForm_Initialize() L = 1 TextBox1.SetFocus End Sub Private Sub CommandButton1_Click() '----> ici ma macro de traitement de liste End Sub
J'ai encore des progrès à faire en VBA ( ce n'est pas la basic du ZX81 :mouarf:)

11/12/2008, 19h44
Oh!Tofocus

Nos réponses se sont croisées...
OK ta solution marche bien
Il me semble que c'est le même mécanisme que ma bidouille.

A+ et Merci de ton aide