Discussion :

[RobinBzh]

Bonjour à toutes et à tous,

Je suis actuellement en train d'écrire un programme premettant de :
>Vérifier sur toutes les textbox de la UserForm sont rempli
>si c'est le cas afficher un message d'erreur dans une msgbox sinon afficher une autre MsgBox "Confirmez-vous le paiement ?"
>Si c'est oui les Caption des textbox sont insérés dans des cellules d'une feuille

Je n'arrive pas à faire fonctionner la vérification des TextBox, si vous avez une idée d'où vient le problème je serais ravi de vous lire !

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 CommandButton1_Click()
 
Dim Ctrl As Control
 
For Each Ctrl In Controls
    If TypeName(Ctrl) = "TextBox" Then Ctrl.Object.Value
        If TypeName(Ctrl) = "" Then MsgBox "Veuillez renseigner les données personnelles et bancaire"
 
                If MsgBox("confirmez-vous le paiement ?", vbYesNo, "confirmation") = vbYes Then
                    Worksheets("Facture").Select
                    Range("F5") = TextBox2.Value 'nom
                    Range("F6") = TextBox3.Value 'prenom
                    Range("B40") = TextBox4.Value 'adresse
                    Range("C41") = TextBox5.Value 'CP
                    Range("C42") = TextBox6.Value 'Ville
                    Unload UserFormPaiement
                    Sheets("Facture").Select
                        Else
                End If
 
 
Next Ctrl
End Sub

Merci !

[ARTURO83]

Bonjour,

Essayez 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
24
25
26
27
28
Private Sub CommandButton1_Click()
    Dim Ctrl As Control
    Dim ToutOk As Boolean
 
    ToutOk = True
    For Each Ctrl In Controls
        If TypeName(Ctrl) = "TextBox" Then
            If Ctrl = "" Then
                ToutOk = False
                Exit For
            End If
        End If
    Next Ctrl
 
    If ToutOk = True Then
        If MsgBox("confirmez-vous le paiement ?", vbYesNo, "confirmation") = vbYes Then
            Worksheets("Facture").Select
            Range("F5") = TextBox2.Value 'nom
            Range("F6") = TextBox3.Value 'prenom
            Range("B40") = TextBox4.Value 'adresse
            Range("C41") = TextBox5.Value 'CP
            Range("C42") = TextBox6.Value 'Ville
            Unload UserFormPaiement
        End If
    Else
        If Ctrl = "" Then MsgBox "Veuillez renseigner les données personnelles et bancaire"
    End If
End Sub

Cdlt