maval
XLDnaute Barbatruc
Bonjour,
Voila j'ai un userform avec 8 textbox et un bouton nommer Valide. Le code, associé à ce bouton, boucle sur tous les contrôles Textbox sauf deux. Si l'un d'eux est vide, alors le focus le sélectionne, voici mon code:
Je recherche une modif que lorsque les 6 textbox sont remplis le bouton nommer "Valide" devienne rouge.
Je vous remercie de votre aide
Voila j'ai un userform avec 8 textbox et un bouton nommer Valide. Le code, associé à ce bouton, boucle sur tous les contrôles Textbox sauf deux. Si l'un d'eux est vide, alors le focus le sélectionne, voici mon code:
Code:
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 SubJe vous remercie de votre aide
