[VBA-EXCEL] - Quitter un contrôle

Bonjour à tous

Voilà mon problème

Sur un controle textbox j'ai sur l'évènement EXIT un contrôle de validité des données, celui-ci marche correctement.

Je ne peux le quitter que lorsque la donnée est correct

Par contre lorsque je ferme la feuille (par la croix), il me marque quand même mon message d'erreur lorsque la feuille se ferme, ce qui est normal car l'évènement EXIT a eut lieu. De même si je crée un bouton fermer.

Comment éviter cela ?

Merci à tous

Starec

Re

Cela m'étonne que personne n'est eut le soucis, c'est très génant en fonctionnement.

Où comment donner la priorité à la fermeture de la form par la croix, par rapport aux autres contrôles.

Merci

Starec

As tu mis une boucle lui demandant de redemander ta donnee si elle est aps bonne
de reaparaitre en quelque sorte;)

Utilise un boolean déclaré en tête du code de l'userform, par exemple

Code:

---

Dim Quitter as boolean

---

Dans ton textbox, teste le boolean avant dans ta boucle de vérification de la saisie

Code:

---

1 2 3 4 5 6 7

Sub CommandButton_Exit(..............) If not Quitter then 'ton code actuel '..... else exit sub endif

---

Et, sous le clic de ton bouton Quitter, mets

Code:

---

Quitter = true

---

A+
Edit
Oui, j'ai fait une bourde, comme le dit bbil c'est bien sûr dans Textbox_exit que doit être mis le code ci-dessus, pas dans le bouton :oops:

Re

J'ai testé ta solution Ouskelnor, cela ne fontionne pas, car le problème c'est que lorsque je cliquer sur Quitter, cela enclenche l'évènement EXIT de ma textbox où il y'a le contrôle de saisie. Donc message

Starec

le code à Ousk' Avec le test du bit Quitter et à implémenter dans l'exit de ton textbox...;)

et pour mettre ce bit à 1 au moment de quitter :

Code:

---

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

Dim Quitter as boolean Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Quitter = True End Sub Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not Quitter Then If TextBox1 = "" Then 'par exemple test si text box1 <> "" MsgBox " Valeur TextBox1 erroné" End If End If End Sub

---

Re,

Cela fonctionne, merci à tous

Starec