Discussion :

[HPJ]

Bonjour à tous,

Sur une form, collez 2 TextBox.
Coller ça dans le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If vbKeyReturn Then 'si Entrée passe au second TextBox
        Me.Text2.SetFocus
    End If
End Sub
 
Private Sub Text1_Validate(Cancel As Boolean)
    MsgBox "Text1_Validate"
End Sub
 
 
Private Sub Text2_Validate(Cancel As Boolean)
    MsgBox "Text2_Validate"
End Sub

Si vous passez du premier au second TextBox avec un clic souris ou un Tab, le validate Text1 est appelé. OK.

Mais si vous appuyez sur Entrée après avoir rempli la première TextBox rien ne se passe !!!

Si quelqu'un voit une alternative.....

[ThierryAIM]

Code :

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

1
2
3
4
5
6
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If vbKeyReturn Then 'si Entrée passe au second TextBox
        SendKeys "{TAB}"
    End If
End Sub

[HPJ]

Oui, mais .......

Le sendkeys a des comportements étranges: il éteint pendant quelques millisecondes la led du pavé numérique !!!

Et si je veux mettre le focus sur le composant que je veux et qu'il n'est pas le suivant dans l'ordre des TabIndex ?

[Leray]

Arff !!! Bien vu Thierry AIM.

J'allais répondre la même chose.

Apparemment, l'évènement SetFocus gêne le fonctionnement de Validate.

[HPJ]

Apparemment, l'évènement SetFocus gêne le fonctionnement de Validate.

Oui mais comment "envoyer" le focus au composant voulu ?

[Leray]

Tu peux faire un SetFocus sur le composant voulu en mettant le code dans l'évènement LostFocus, celui-ci s'exécutant après l'évènement Validate :

Code :

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

1
2
3
Private Sub Text1_LostFocus()
    Text2.SetFocus
End Sub

Apparemment ça marche.

[HPJ]

Je ne peux pas faire quelque chose de pareil !!!
Ca impose l'ordre de saisie: après avoir saisi le Text1, si l'utilisateur sélectionne un autre contrôle, le focus va repasser automatiquement au Text2....

[Leray]

Si je comprends bien, tu veux :

1)° que l'utilisateur puisse passer d'un contrôle à un autre en cliquant dessus

2°) que le programme sélectionne le contrôle suivant si l'utilisateur tape Enter

Et ceci tout en validant les données présentes dans le contrôle qui perd le focus.

Si c'est celà que tu veux, tu pourrais procéder comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub text1_gotfocus()
    Text1.Tag = 0
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        KeyAscii = 0 ' permet d'éviter le petit clic disgracieux !!!
        SendKeys "{tab}"
        Text1.Tag = 1
    End If
End Sub
 
Private Sub Text1_LostFocus()
    If Text1.Tag = 1 Then Text2.SetFocus
End Sub
 
Private Sub Text1_Validate(Cancel As Boolean)
    If Text1.Text <> "saisie" Then
        Text1.Tag = 0
        Cancel = True
        MsgBox "mauvaise entrée"
    End If
End Sub

Tu te sers de la propriété Tag, que tu mets à 1 si la touche Enter est pressée pour que LostFocus passe au contrôle suivant, sinon il donne le focus au contrôle que l'utilisateur a cliqué.

[HPJ]

Tu as très bien compris ce que je voulais et tu l'as remarquablement bien codé. Merci.