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

[Theze]

Bonjour,

Tu dis :

Cependant, mes deux dernieres textbox(es) - j'en ai cinq en tout...

Sur la Form je n'en compte que 4 ?

ne sont controlees qu'apres la pression sur mon bouton Ok (ferme le formulaire)...

Tu utilise l'évènement "Exit" des TextBox donc, pour le dernier, comme tu ne change pas de TextBox pour provoquer Exit, l'évènement ne se produit que quand le focus est donné au bouton de fermeture.

Hervé.

[nibledispo]

bonjour,

je ne maitrise pas VBA mais il me semble, si j'ai bien compris le problème, que j'aurai écrit le code suivant.

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub TextBoxNumFunk_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 If TextBoxNumFunk.Value = "" Or Not IsNumeric(TextBoxNumFunk.Value) Then
    msg = MsgBox("Entrez une valeur numérique", vbExclamation, "Erreur saisie")
    TextBoxNumFunk.Value = ""
    TextBoxNumFunk.SetFocus
    Exit Sub  '  instruction à voir en fonction du contexte
 End If
End Sub

je ne sais pas ce qu'en pense les connaisseurs ?

cordialement.

[wipMan]

Merci pour vos reponses.

On economise des lignes avec ce que tu proposes nibledispo, mais en faisant ainsi, tu changes le comportement du programme: la ou je voulais forcer une saisie nulle ou uniquement numerique, ton code n'autorise que la saisie d'un nombre.

Sous l'impulsion de plusieurs personnes, j'ai laisse de cote l'evenement Exit pour le remplacer par KeyPress. Le comportement est quasiment le meme que precedemment et le resultat satisfaisant.
En revanche, mon probleme persiste: les deux premiers controles de saisie se font immediatement, mais pas pour les suivants, ceux-ci ne s'effectuent qu'a la sortie de mon UserForm. Je pense que cela a un rapport avec le passage TextBox vers ComboBox, car c'est a partir de cette transition que le probleme survient, mais je ne sais pas l'expliquer, ni le resoudre.

Des idees ?

[Invité]

Bonjour, je te suggère du regarder ma solution de plus près elle fonctionne très bien et je l’utilise depuis plusieurs années !

[wipMan]

J'ai bien regarde le code propose. J'ai compris la propriete .Tag.

De ce que j'ai compris de votre proposition, il y a verification de la saisie, puis on boucle sur le controle tant que celui-ci ne respecte pas le formalisme attendu et c'est la fonction .SetFocus qui s'en occupe. Ai-je bon sur ce dernier point ?
Si oui, en quoi mon code ne convient-il pas ? J'ai deja utilise .SetFocus et pourtant le probleme survient malgre tout (on m'a d'ailleurs conseille sur un autre sujet d'utiliser la propriete Cancel).

Aussi, il y a d'autres points obscurs:
- le role de la procedure Valider_Click() ;
- la presence de "If ChampObligatoir = True Then Exit Function" sert a quel endroit ? ;
- a quoi sert la concatenation ligne 12 : " "" & Me.Controls(i).Tag" ?

Merci.

[Invité]

"If ChampObligatoir = True Then Exit Function" sert a quel endroit ? ; "

"If ChampObligatoir = True Then " permet de quitter la fonction ou le sub [exit Sub] si un utilisateur n'a pas respecté les obligation de saisie dans mon cas les champs obligatoires dans le tien le format de saisie un texte pour un numérique.

[Theze]

Bonjour,

Supprime les TextBox qui ne fonctionnent pas et remplace-les par des nouveaux pour voir si le problème subsiste !

Hervé

[wipMan]

Ok, j'ai trouve. En adaptant le code, j'ai reussi avec votre aide. Quand on a les outils et qu'on reflechit, cela marche mieux.
Voila ce que ca donne:

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 ButtonOk_Click()
    If False = checkFormCompleted Then
        Unload Me
    End If
End Sub
 
Private Function checkFormCompleted()
    Dim i As Integer
 
    For i = 0 To Me.Controls.Count - 1
        If TypeName(Me.Controls(i)) = "TextBox" Then
            If Trim("" & Me.Controls(i).Tag) <> "" And Trim(Me.Controls(i).Text) = "" Then
                msg = MsgBox("xxx ne doit pas etre vide", vbCritical, "ERR")
                Me.Controls(i).SetFocus
                checkFormCompleted = True
            End If
        End If
        If True = checkFormCompleted Then
            Exit Function
        End If
    Next i
 
    checkFormCompleted = False
End Function

Merci a tous.