Eviter le code de TextBox1_Exit

Bonsoir à toutes et tous

Dans l'USF, j'ai TextBox 1, TextBox 2 et CommandButton1 avec les codes suivants :

Code:

---

1 2 3 4 5 6 7 8

Private Sub CommandButton1_Click() Unload Me End Sub   Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) ' "If CommandButton1 cliqué then Exit Sub" MsgBox "coucou" End Sub

---

j'ai le focus sur TextBox 1.
Je tape "1234". Je m'aperçois que je n'ai pas besoin de saisir quoique ce soit dans l'USF, je veux donc fermer l'USF. je clique sur le CommandButton1. Mon problème est que, au lieu de sortir, j'ai le "coucou" du TextBox1_Exit qui apparaît. Comment peut-on fermer l'USF sans passer par le TextBox1_Exit ? étant entendu qu'il y a forcément du code dans TextBox1_Exit. Je tourne en rond :(
J'espère avoir été clair.
Merci par avance
Eric

Bonjour,

Pas testé, mais tu pourrais essayer cela

Tu ajoutes, ou tu utilises un module standard. Et tu mets dans l'entête du module et en dehors des procédures:

Code:

---

Public sortie as boolean

---

Puis tu changes un peu tes procédures

Code:

---

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

Private Sub CommandButton1_Click() sortie = true Unload Me End Sub   Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If sortie = true then Exit Sub else MsgBox "coucou" end if End Sub

---

Bonjour à toutes et tous
Bonjour Clement

Merci pour ta réponse qui a été plus rapide que la mienne en retour (WE chargé)
Ta proposition ne fonctionne malheureusement pas, car le premier évènement, quand l'on clique sur le CommandButton, est la sortie du TextBox.

Eric

Bonjour,

à toi d'insérer les bonnes instructions maintenant

Code:

---

1 2 3

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Me.TextBox1.Text <> "1234" Then MsgBox "ok on continue" Else MsgBox "1234 : on sort" End Sub

---

Bonjour.

D'abord. pour ne pas declancher TextBox1_Exit , s'assurer, avec CommandButton1.TakeFocusOnClick = False, que CommandButton1 ne prenne pas le focus :

Ensuite, grace a UserForm_QueryClose, aviser TextBox1_Exit que la fermeture du Userform est en cours.

Code:

---

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

Dim usrUnload As Boolean   Private Sub UserForm_Initialize() CommandButton1.TakeFocusOnClick = False End Sub   Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) usrUnload = True End Sub   Private Sub CommandButton1_Click() Unload Me End Sub   Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If usrUnload = False Then MsgBox "coucou exit" End If End Sub

---

Bonsoir à toutes et tous

- Joe.levrai : j'avais écris "1234", c'était un exemple, le problème reste le même si TextBox1 est vide.
- Docmarti : c'est juste ce que j'avais espéré. Je vais tester en profondeur, mais cela répond à ma question. Comme j'ai d'autres TextBox, je pourrai appliquer à certain la même méthode.

Merci à vous tous
Cordialement
Eric