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 !