Enter automatique après textbox

Bonjour à tous.
J'ai un userform qui contient un combobox, un textbox et 2 boutons.

Si l'utilisateur tape "Enter" après avoir inscrit sa réponse dans le textbox et que le combobox contient également des données, le bouton "Accepter" s'active automatique et le code du bonton est exécuté.

Ça fonctionne parfaitement grâce à ce formum... Merci !

Mon problème se situe au niveau du bouton "Accepter". Si l'utilisateur utilise la souris et clique sur le bouton, alors j'ai mon msgbox que j'ai prévu si l'information dans textbox et [MotDePasse] (plage dans une feuille) ne sont pas identique.
Voici le code complet du userform:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Private Sub cmb_mainPW_Exit(ByVal Cancel As MSForms.ReturnBoolean) [Réception] = cmb_mainPW End Sub   Private Sub CommandButton1_Click() cmb_mainPW = "" TextBox1 = "" Userform2.Hide End Sub   Private Sub CommandButton2_Click() If TextBox1.Value = [MotDePasse].Value Then Sheets("Principal").Select Range("B4").Select cmb_mainPW = "" TextBox1 = "" Userform2.Hide Exit Sub End If MsgBox "L'usager ou le mot de passe est invalide. Veuillez essayer à nouveau", vbOKOnly, "Sécurité." cmb_mainPW = [Réception] TextBox1 = "" TextBox1.SetFocus End Sub Private Sub UserForm_Initialize() Me.cmb_mainPW.RowSource = "Accès!a10:a" & Sheets("Accès").Cells(10, 1).End(xlDown).Row End Sub   Private Sub CommandButton2_Enter()   If Me.cmb_mainPW <> "" And Me.TextBox1 <> "" Then CommandButton2_Click   End Sub

---

quelqu'un a-t-il une solution à ce problème ?

Merci à l'avance

Dlight

Bonjour

j'aurais bien voulu voir tout le code, il y a surement une gestion d'interruption (Exit ou Change) sur la textbox1, il faut supprimer la gestion des interruptions

essaye ça :

Code:

---

1 2 3 4 5

cmb_mainPW = [Réception] application.enableevents = false ' interdit l'execution des evennement TextBox1 = "" application.enableevents = true ' remet en place la gestion des evennements TextBox1.SetFocus

---

Bonjour Dlight, Wilfried:)

sauf erreur de ma part "EnableEvents" ne s'applique pas aux contrôles activeX...

bonne journée
@+

re: salut pierrot :)

tu as raison, je ne sais plus ce que je fais ce matin.

montre les macros d'interruption de la textbox1

Bonjour,
la réponse ne serait pas là ?

Code:

---

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

Private Sub CommandButton2_Click() If TextBox1.Value = [MotDePasse].Value Then Sheets("Principal").Range("B4").Select cmb_mainPW = "" TextBox1 = "" Userform2.Hide Exit Sub Else MsgBox "L'usager ou le mot de passe est invalide. Veuillez essayer à nouveau", vbOKOnly, "Sécurité." cmb_mainPW = [Réception] TextBox1 = "" TextBox1.SetFocus End If End Sub

---

bonne journée

Merci à vous trois pour vos réponses.

Je n'ai aucun code en relation avec le textbox. Dans ma question, j'ai placé la totalité du code en relation avec ce userform.

Ce qui est encore plus surprenant, c'est que j'éxécute le code pas à pas et ça ne le fait pas !:calim2:

J'ai retiré le code

Code:

---

If Me.cmb_mainPW <> "" And Me.TextBox1 <> "" Then CommandButton2_Click

---

et je n'ai plus le problème !

Si quelqu'un a une solution, je suis preneur...


Merci encore une fois à l'avance

DLIGHT

bonjour

regarde ce fichier s'il peut t'aider Pièce jointe 71306

Merci wilfried_42

Je me suis inspiré de votre code et ça fontionne.

Merci !:ccool:

Dlight