Discussion :

[wilfryjules]

Bonjour à tous !

Mon objectif: J'ai une Userform dans laquelle j'ai des TextBox. Lorsque l'utilisateur rentre une valeur dans chaque Textbox, il faut lancer un évènement de vérification pour voir si la donnée rentrée est bien valide.
Pour cela, je veux utiliser l'évènement LostFocus.

J'ai mis le code suivant dans la Userform pour un premier test:

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
 
'*********************************************
'****** INITIALISATION DE LA USERFORM
'*********************************************
Private Sub UserForm_Initialize()
 
    Dim element As Control
 
    For Each element In Usfrm_Wizard.Controls
        If TypeName(element) = "TextBox" Then
           AddHandler element.LostFocus, AddressOf txtBoxLostFocusHandler
        End If
 
    Next element
End Sub
 
 
Private Sub txtBoxLostFocusHandler(ByVal sender As Object, ByVal e As EventArgs)
MsgBox "LostFocus"
End Sub

Mais j'ai une erreur de compil (tout est dans le titre).

J'ai essayé d'appliquer ça en vain: https://bytes.com/topic/visual-basic...ostfocus-event

[unparia]

Bonjour
Il est plus que manifeste que :
- 1) tu copies/colles n'importe quoi trouvé je ne sais où
- 2) tu ignores même en quel langage est écrit ce que tu copies/colles
avec, pour conséquence :
- des procédures évènementielles qui n'existent pas sous VBA/Excel
Veux-tu bien s'il de plait cliquer (en mode création) sur ta textbox et regarder les évènements qui te sont proposés dans la partie droite de l'éditeur. LostFocus est absent aux abonnés. Un autre évènement est, par contre, parfaitement adapté et son nom est plus qu'explicite.
Reviens s'il te plait après ce petit effort.

[wilfryjules]

Malgré l'agressivité de ta réponse, je dois reconnaître que tu as raison...
J'ai donc utilisé l'évènement "Exit" pour chaque textBox.

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Private Sub tbx_engine_min_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
 
    Static tbx_engine_min_1 As String
 
    With tbx_engine_min
 
        If .VALUE = "" Then
            tbx_engine_step.Enabled = False
            tbx_engine_min_1 = ""
            Exit Sub
        End If
 
        If Not IsNumeric(.VALUE) Then
            MsgBox "Sorry, only numbers accepted."
            .VALUE = tbx_engine_min_1
            Exit Sub
        End If
 
        If val(.VALUE) < 0 Then
            MsgBox "Please enter a positive value."
            .VALUE = tbx_engine_min_1
            Exit Sub
        End If
 
        If Not tbx_engine_max.VALUE = "" Then
            If val(.VALUE) > val(tbx_engine_max.VALUE) Then
                MsgBox "Min must be less than Max."
                .VALUE = tbx_engine_min_1
                Exit Sub
            Else
                tbx_engine_min_1 = .VALUE
                tbx_engine_step_Change
                tbx_engine_step.Enabled = True
            End If
        End If
 
    End With
End Sub

[unparia]

Tu vois de l' "agressivité" lorsque l'on te met le nez dans la confiture ? Désolé, mais je suis ainsi fait et je réagirai toujours ainsi en présence de ce genre d' "approche" du développement.
Bonne chance.

[MarcelG]

Bonjour wilfrujules,

A quoi correspond

t

Code :

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

bx_engine_step_Change

?

J'aurais personnellement opté pour une méthode

Code :

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

Select Case

, ce qui éviterait les

Code :

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

Exit Sub

répétés.

2 tutoriels de référence concernant les formulaires sont reportés dans cet espace documentaire

Pour les amateurs.
Je me suis toujours demandé pourquoi l'évènement Exit est plus compliqué à gérer par les modules de classe.
C'est possible, certes, mais le développement est plus élaboré.

[wilfryjules]

J'ai modifié entre temps dsl.

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
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
67
68
69
70
71
72
73
74
75
76
77
78
 
 
Private Sub tbx_engine_min_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
    'WaitTyping
    Static tbx_engine_min_1 As String
 
    With tbx_engine_min
 
        If .VALUE = "" Then
            tbx_engine_step.Enabled = False
            tbx_engine_min_1 = ""
            Exit Sub
        End If
 
        If Not IsNumeric(.VALUE) Then
            MsgBox "Sorry, only numbers accepted."
            .VALUE = tbx_engine_min_1
            Exit Sub
        End If
 
        If val(.VALUE) < 0 Then
            MsgBox "Please enter a positive value."
            .VALUE = tbx_engine_min_1
            Exit Sub
        End If
 
        If Not tbx_engine_max.VALUE = "" Then
            If val(.VALUE) > val(tbx_engine_max.VALUE) Then
                MsgBox "Min must be less than Max."
                .VALUE = tbx_engine_min_1
                Exit Sub
            Else
                tbx_engine_min_1 = .VALUE
                Verif_tbx_engine_step
                tbx_engine_step.Enabled = True
            End If
        End If
 
    End With
End Sub
 
 
Private Sub Verif_tbx_engine_step()
    'WaitTyping
    Dim min As Double
    min = val(tbx_engine_min.VALUE)
    Dim max As Double
    max = val(tbx_engine_max.VALUE)
    Dim step As Double
 
    Static tbx_engine_step_1 As String
 
    With tbx_engine_step
        step = val(.VALUE)
        If .VALUE = "" Then
            cbx_engine_direction.Enabled = False
            tbx_engine_step_1 = ""
            tbx_engine_counts.VALUE = ""
            Exit Sub
        End If
 
        If (max - min) Mod step = 0 Then
            tbx_engine_step_1 = .VALUE
            tbx_engine_counts.VALUE = (max - min) / step + 1
            cbx_engine_direction.Enabled = True
        Else
            MsgBox "Please enter a correct step."
            .VALUE = tbx_engine_step_1
        End If
    End With
End Sub
 
 
Private Sub tbx_engine_step_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
     Verif_tbx_engine_step
End Sub