Discussion :

[Invité]

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

[Invité]

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

[alex_elder1_1]

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

[ouskel'n'or]

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

Code :

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

Dim Quitter as boolean

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

Code :

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

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 :

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

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

[Invité]

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

[SfJ5Rpw8]

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 :

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

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

[Invité]

Re,

Cela fonctionne, merci à tous

Starec