Bloquer evenement userform

cathodique à dit:

Bonsoir🙂,

Je voudrais vérifier les codes saisis dans la textbox1, il faut qu'ils aient 4 chiffres et commencer par 8 ou 9
par rapport aux boutons d'option (Débit actif m=8 sinon m=9).
Un message avise l'utilisateur dans le cas où le code est non conforme aux conditions.
Cependant, l'utilisateur pourrait changer d'avis après avoir saisi un code, et vouloir fermer l'userform.
Le message s'affiche inexorablement.
Comment résoudre ce problème?
Avec mes remerciements par avance.

Cliquez pour agrandir...

Jacky67 à dit:

Bonjour,
Une proposition en Pj

Cliquez pour agrandir...

• TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
• TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Dranreb à dit:

Bonjour.
Dans un petit UserForm muni d'une TextBox j'ai écris ceci :

VB:

Option Explicit
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   MsgBox "Exit"
   End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   MsgBox "QueryClose"
   End Sub

Observez l'ordre d'apparition des message et donc d'exécution de évènements.
En déduisez vous une solution possible ?

Cliquez pour agrandir...

• fermeture à partir de la croix c'est QueryClose qui se déclenche en priorité
• fermeture par le bouton c'est Textbox1_exit qui se déclenche en priorité.

Dranreb à dit:

Moi j'ai vu celle ci :

VB:

Option Explicit
Private FermetureEnCours As Boolean
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   If FermetureEnCours Then Exit Sub
   If TextBox1.Text <> "" Then Exit Sub
   MsgBox "Champ obligatoire"
   Cancel = True
   End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   FermetureEnCours = True
   End Sub

Cliquez pour agrandir...