AddressOf: utilisation incorrecte de la propriété

Version imprimable

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:

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

12/12/2018, 11h58
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.

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:

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

12/12/2018, 15h32
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.
12/12/2018, 16h01
MarcelG

Bonjour wilfrujules,

A quoi correspond

t

Code:

bx_engine_step_Change

?

J'aurais personnellement opté pour une méthode

Code:

Select Case

, ce qui éviterait les

Code:

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é.

J'ai modifié entre temps dsl.

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