Obliger de remplir nbre textbox sauf 2

Bonjour

J'ai un Userform avec 8 TextBox. Le code actuel, associé à un bouton, boucle sur tous les contrôles Textbox. Si l'un d'eux est vide, alors le focus le sélectionne.

J'aimerai que le code ne tienne pas compte de 2 textBox " 3 & 6"mon code est ceci:

Private Sub Btn_Valid_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

Je vous remercie de votre aide et vous souhaite une bonne soirée

Cordialement

Max

Bonjour

A tester

Private Sub Btn_Valid_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
      If ctrl.Name <> "TextBox3" And ctrl.Name <> "TextBox6" Then
        erreur = True
        Set ctrlerr = ctrl
        Exit For
      End If
    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

Bonsoir Banzai

je te remercie Nikel

Merci