Remplir toutes les textbox selon conditions

Bonjour à tous,

J'ai un code qui fonctionne une fois sur 2. Lorsque que je rempli la partie du haut et que j'oubli une textbox il m'affiche un message.

Lorsque la partie du bas est remplie rien n'est affichée

Voici le code :

Private Sub bt_valider_Click()

Dim ctrl As Control, ctrlerr As Control

Dim erreur As Boolean

For Each ctrl In Me.Controls

erreur = False

If TypeOf ctrl Is MSForms.TextBox And Len(ctrl) = 0 Then

erreur = True

Set ctrlerr = ctrl

Exit For

End If

Next ctrl

If erreur = True Then

MsgBox "Vous n'avez pas rempli toutes les zones"

ctrlerr.SetFocus

Set ctrlerr = Nothing

Else

Me.Hide

End If

End Sub

Bonjour

Avec le fichier qui va avec, ce serait plus facile ...

Bye !