Discussion :

[edelweisseric]

Bonsoir à toutes et tous

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[clementmarcotte]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Public sortie as boolean

Puis tu changes un peu tes procédures

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[edelweisseric]

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

[joe.levrai]

Bonjour,

à toi d'insérer les bonnes instructions maintenant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Docmarti]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[edelweisseric]

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