Problème pour Activation CommandButton

Bonjour à tous

J'ai créé un UserForm assez simple avec 2 zones de saisie (TextBox), 3 listes déroulantes (ComboBox) et un bouton de validation.

Ce que j'aimerais faire (mais je n'y parviens pas):

• Le bouton est désactivé au chargement du Userform (pas de souci à ce niveau)
• Activer le bouton de validation (enable = true) lorsque tous les champs sont remplis (les 2 zones et les 3 listes déroulantes)
• Le désactiver dès qu'il manque un champ

Le problème est que je ne vois pas ou gérér l'événement "tous les champs sont complétés ou non"

Ce que je fais pour contourner:

• Je "simule" l'activation, désactivation via la propriété Locked et ForeColor:
  Descativé <=> locked =true et ForeColor en gris, Activé <=> locked= False et ForeColor en noir
• Je gère le passage d'un état à un l'autre au niveau de la méthode MouseMouve de mon bouton

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub ButtonCreerRub_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)   'On "active" le bouton si l'ensemble des champs sont remplis Me.ButtonCreerRub.Locked = Not AreFieldsCompleted() Me.ButtonCreerRub.ForeColor = IIf(AreFieldsCompleted(), RGB(0, 0, 0), RGB(160, 160, 160))   End Sub   'Vérifie que l'ensemble des champs sont remplis Private Function AreFieldsCompleted() As Boolean   AreFieldsCompleted = (Len(Me.TB_CodeRub.Text) <> 0) And (Len(Me.TB_LibRub.Text) <> 0) And Me.CB_ListRubP1.ListIndex <> -1 _ And Me.CB_ListRubP2.ListIndex <> -1 And Me.CB_ListRubP3.ListIndex <> -1 End Function

---

Mais, je ne pense pas que ce soit la bonne manière de faire.... Comme je débute avec les UF, j'aimerais partir du bon pied.

Merci d'avance à tous.

Bonjour,

Perso je ne procéderais pas comme ça, je laisserais le bouton actif et je vérifierais les champs au moment du click sur le bouton

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub CommandButton1_Click() Dim ctrl As Control, Verif As Boolean   For Each ctrl In Me.Controls If TypeOf ctrl Is MSForms.TextBox Or TypeOf ctrl Is MSForms.ComboBox Then If ctrl.Value = "" Then Verif = True End If Next   If Verif = True Then MsgBox "Veuillez compléter tous les champs" Else MsgBox "OK" End If   End Sub

---

Merci Fring,

oui il y 'a effectivement la possibilité de laisser le bouton actif.
J'aurais aimé le laisser inactif pour éviter trop de clics et donc messages (liés) intempestifs.
Par contre je suis d'accord: ma méthode est assez saugrenue.

Cordialement.

Le problème avec un bouton inactif est que l'utilisateur risque de se demander pourquoi il ne peut pas cliquer. Avec un message tu peux spécifier de compléter tel ou tel champs.

salut isso, salut fring

Pour rester dans ton idée d'avoir le bouton locked et de tester si tous les champs sont remplis, tu peux mettre un test dans la fonction événementielle

Code:

---

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

---

Tu affiches ton bouton si tous les champ sont remplis (sa tu y arrive déjà) et si le mec veux feinter et changer un champ pour ne pas le remplir, tu test la valeur à la sortie(je viens de penser que sa peut marcher avec la fonction Change)
Je sais pas si j'ai été clair et je sais pas si sa peux marcher avec ton problème :\
Bonne chance:)

Fring, j'ai opté pour ta solution finalement. Encore merci

Bonne soirée.