Discussion :

[wipMan]

yo

Je suis en train de creer un formulaire (UserForm) en vba pour Excel. J'ai mis en forme celui-ci et inserer des controles de saisie pour chacun des champs avec l'evenement Exit.
J'observe que mes trois premieres textbox(es) sont bien controlees comme escompte et qu'un message d'erreur s'affiche si le formalisme n'est pas respecte, puis impose une nouvelle saisie dans ces memes textbox(es).

Cependant, mes deux dernieres textbox(es) - j'en ai cinq en tout- ne sont controlees qu'apres la pression sur mon bouton Ok (ferme le formulaire). Les messages d'erreur s'affichent a la suite de la fermeture, les uns apres les autres.
Ainsi, on ne boucle pas sur les saisies erronees pour correction.

Je dois preciser que trois ComboBox(es) suivent mes premieres TextBox(es) et precedent les deux dernieres, controlees a posteriori.

J'ai bien essaye d'imposer un retour a la textbox erronee au sein de mon code a l'aide de .SetFocus et de .Accelerator, mais pour le premier, ca ne marche, et c'est impossible pour le second...

Arrivez-vous a cerner le probleme ?

Merci.

[Daniel.C]

Bonjour,

Ça serait bien de voir ton code.

[wipMan]

Cela suffit-il ?

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
 
Private Sub TextBoxNumFunk_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBoxNumFunk.Value = "" Then
       Exit Sub
    Else
        If False = IsNumeric(TextBoxNumFunk.Value) Then
            msg = MsgBox("Attendu: nombre", vbExclamation, "Erreur saisie")
            TextBoxNumFunk.Value = ""
            Cancel = True
        End If
    End If
End Sub
 
Private Sub TextBoxQuantiteCommandee_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBoxQuantiteCommandee.Value = "" Then
        Exit Sub
    Else
        If False = IsNumeric(TextBoxQuantiteCommandee.Value) Then
            msg = MsgBox("Attendu: nombre", vbExclamation, "Erreur saisie")
            TextBoxQuantiteCommandee.Value = ""
            Cancel = True
        End If
    End If
End Sub

[Invité]

Bonjour voila ce que j’ai proposé sur un autre post du forum tu peux t’en inspiré si tu veux.

Bonjour,
Tous les contrôles dispos d’une propriété TAG.
Il sufis de l’utiliser pour afficher ton message d’erreur.
Si un contrôle à un TAG= "" c’est qu’il n’est pas obligatoire si non on test le texte.
Attention au liste et check (value).
Vérifier le type de contrôle.

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
Private Sub Valider_Click()
 
If ChampObligatoir = True Then Exit Sub
'Code si validé
End Sub
 
Function ChampObligatoir() As Boolean
Dim i As Long
 
For i = 0 To Me.Controls.Count - 1
Debug.Print TypeName(Me.Controls(i))
    If Trim("" & Me.Controls(i).Tag) <> "" Then
        Select Case TypeName(Me.Controls(i))
            Case "TextBox"
                If Trim(Me.Controls(i).Text) = "" Then
                MsgBox Me.Controls(i).Tag
                Me.Controls(i).SetFocus
                ChampObligatoir = True
            End If
            Case "ComboBox"
                If Trim(Me.Controls(i).Text) = "" Then
                MsgBox Me.Controls(i).Tag
                Me.Controls(i).SetFocus
                ChampObligatoir = True
            End If
             Case "ListBox"
                If Trim(Me.Controls(i).Text) = "" Then
                MsgBox Me.Controls(i).Tag
                Me.Controls(i).SetFocus
                ChampObligatoir = True
            End If
            Case "CheckBox"
                If Trim(Me.Controls(i).Value) = False Then
                MsgBox Me.Controls(i).Tag
                Me.Controls(i).SetFocus
                ChampObligatoir = True
            End If
             Case "OptionButton"
                If Trim(Me.Controls(i).Value) = False Then
                MsgBox Me.Controls(i).Tag
                Me.Controls(i).SetFocus
                ChampObligatoir = True
            End If
        End Select
    End If
    If ChampObligatoir = True Then Exit Function
Next
End Function

[Theze]

Bonjour,

Si tes Textbox ne doivent avoir que des valeurs numériques, il te suffit de contrôler la saisie :

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
 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
    Select Case KeyAscii
 
        'seulement des chiffres
        Case 48 To 57
 
        'virgule et point, séparateur décimal
        Case 44, 46
 
            'seulement la virgule <-- adapter si nécessaire
            If KeyAscii = 46 Then KeyAscii = 44
 
            'seulement une fois
            If InStr(TextBox1.Text, Chr(KeyAscii)) <> 0 Then KeyAscii = 0
 
            'interdit le séparateur décimal en premier
            If TextBox1.Text = "" Then If KeyAscii = 44 Then KeyAscii = 0
 
 
        Case Else
 
            MsgBox "Seulement numérique !"
 
    End Select
 
End Sub

Hervé.

[wipMan]

Merci.

C'est bien tout ca, mais qu'est-ce qui ne fonctionne pas dans mon code ?

Je ne trouve pas d'explication a ce "phenomene"...