Vérifier TextBox complété dans une UserForm
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:
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 !