setfocus texbox ne fonctionne pas

Version imprimable

16/12/2010, 15h01
chris45

setfocus texbox ne fonctionne pas

bonjour,
j'ai un souci que je n'arrive pas a resoudre

j'ai un textbox sur un userform
qui est active par un setfocus a l'ouverture du userform
je rentre un chiffre a l'interieur
et appuie sur entre
une macro suite a l'evenement "after update" recherche le numero correspondant sur une feuille excel
si il est trouve ......
et si il est pas trouve
efface le contenu du textbox
et re setfocus texbox pour saisir un autre chiffre
et bien le re setfocus ne fonctionne pas

il active le bouton suivant

je me suis dit une macro fonctionnant sur l'event textbox2 ne permet pas de mettre lke focus sur le meme objet
alors j'en ai fait deux qui fonctionne en alternance
le premier donne bien le focus au deuxieme
mais une fois le deuxieme rempli il donne pas le focus au premier

y a t il un clear sur le focus?
ou puis je utilisé un autre evenement pour gerer mes macro?

a+
Christophe

J'ai trouvé çà:

Code:

1
2
3
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox2.Text = "" Then Cancel = True
End Sub

Cà fonctionne mais le problème j'ai plus aucune action sur les boutons

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
Private Sub CommandButton1_Click()
'bouton retour
calcul.Hide
End Sub
 
Private Sub TextBox1_AfterUpdate()
 
'macro de comparaison valeur
'...................
 
'initialisation et retour sur le textbox
TextBox1.Value = ""
'textbox1.setfocus 'ne fonctionnepas
End Sub
 
Private Sub UserForm_Activate()
TextBox1.SetFocus
 
End Sub
 
Private Sub UserForm_Click()
 
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Text = "" Then Cancel = True
End Sub

merci de votre aide

a+
Christophe

16/12/2010, 16h21
chris45
j'ai trouve la solution pour les bouton

j'ai mis cette propriete pour tous les boutons

TakeFocusOnClick = False
et ca fonctionne

Suite des souci
j'ai un deuxième textbox et je n'ai pas la main dessus
comment desactivé
Code:

1 2 Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1.Text = "" Then Cancel = TrueEnd Sub
Lorsque je clique sur texbox2

...........

il faudrai que je met un truc

Cancel = false si texbox2 clicker

a+
Christophe
16/12/2010, 16h39
wilfried_42
Bonjour

Dans ta procedure update, tu mets textbox1 = "" ce qui provoque le cancel = true de ta procedure exit

pour regler le probleme, tu peux utiliser une petite astuce : dans un module tu definis une variable booleenne :

Code:

public sortie as boolean

dans ta procedure update :

Code:

textbox1 = "" : sortie = true

dans ta procedure exit
Code:

1 2 if sortie <> true and textbox1 = "" then cancel = true sortie = false
cordialement
wilfried
16/12/2010, 16h47
chris45

merci beaucoup pour ta reponse

fonctionne pas corectement

j'ai acces au texbox2 si textbox1 rempli uniquement

a+
Christophe

re:

je viens de faire l'essai : ceci fonctionne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sortie As Boolean
Private Sub TextBox1_Change()
    If TextBox1 = "Maman" Then
        MsgBox "GAGNE"
        Sortie = True
        TextBox1 = ""
        TextBox2.SetFocus ' permet d'envoyer sur textbox 2 sans avoir besoin de faire entrer ou tab
    End If
End Sub
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Sortie <> True And TextBox = "" Then Cancel = True
    Sortie = False
End Sub

merci beaucoup pour ton aide, qui m'a bien servi

j'ai trouvé ( avec ta participation ) une methode qui fonctionne

je debloque l'acces au textbox2 ou autre seulement pas un appui sur un bouton

sur ma userform j'ai
deux bouton
un label
et deux textbox

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Private Sub CommandButton1_Click()
'bouton retour
calcul.Hide
End Sub
 
Private Sub CommandButton2_Click()
sortie = True
Label1.Caption = sortie
 
End Sub
 
Private Sub TextBox1_AfterUpdate()
aa = 0
 
Label1.Caption = sortie
 
 
'macro de comparaison valeur
'...................
 
'initialisation et retour sur le textbox
TextBox1 = ""
sortie = False
Label1.Caption = sortie
'textbox1.setfocus 'ne fonctionnepas
End Sub
 
Private Sub TextBox2_AfterUpdate()
'macro de comparaison valeur
'...................
 
'initialisation et retour sur le textbox
 
TextBox2.Value = ""
TextBox1.SetFocus 'ne fonctionnepas
sortie = False
 
Label1.Caption = sortie
 
End Sub
 
 
 
 
 
Private Sub UserForm_Activate()
aa = 0
sortie = False
Label1.Caption = sortie
TextBox1.SetFocus
 
End Sub
 
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If sortie <> True And TextBox1 = "" Then Cancel = True
'Cancel = True
'sortie = False
Label1.Caption = sortie
 
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
sortie = False
Label1.Caption = sortie
TextBox1.SetFocus
End Sub

a+
Christophe