Microsoft 365 Userform : Astuce pour pourvoir utiliser le bouton UnLoad Me - quand exit Cancel sur textbox

[RyuAutodidacte]

Bonjour à tous en ce dimanche,

Dans un UserForm (Pas de code ActiveX svp qui ne sont pas géré chez moi) , j'ai 2 TextBox qui utilisent un event Exit.
Pour les TextBox : Tant que les conditions ne sont pas remplis (donnée valide) le Exit est en Cancel True et garde donc le focus

Ce que j'aimerai et malgré ce focus est une astuce qui me permettrait quand même de pouvoir cliquer sur le Bouton qui UnLoad me
Déjà est ce possible ? et si oui comment svp ?

 

[Dudu2]

Mon système de Application.OnTime ne marche pas.
Je l'ai fait dans un autre contexte mais je n'arrive plus à le refaire .
Malgré l'asynchronisme, l'évènement du bouton Quitter n'est pas déclenché ! Pige pas.

 

[Dudu2]

Je crois qu'il y a le MsgBox qui fout la grouille aussi.
J'ai retrouvé le Module que j'utilisais. Je vais refaire un essai et proposer un fichier si ça fonctionne.

 

[RyuAutodidacte]

Merci @Dudu2 pour tester
@Dranreb pas mal l'idée mais j'ai changé mon MsgBox par un label visible ou non ( je suis sur Mac le MsgBox laissé bien les focus dans le textbox mais enlever le curseur @patricktoulon à trouvé une solution avec un Me.Hide: Me.Show mais qd cela se répéter ca bloqué mon excel après moulte test)

 

[Dranreb]

Peut être un MouseMove sur le bouton de fermeture qui met à True un Boolean testé dans l'Exit ?

 

[patricktoulon]

@Dudu2 je tape "dudu" dans le textbox 1 et valide
j'ai le message et après le message il ne reprends pas le focus
comme je l'ai dis dans la discussion concerné le msgbox enlève le focus au userform il n'est plus la fentre active alors pour rendre le focus a un de ses enfants je pense que tu peut courir encore longtemps

c'est immuable

 

[Dudu2]

Avec le SetFocus Asynchrone comme dans mon fichier,si ,le Focus revient.

MsgBox "Vous devez entrer une valeur numérique !"
Set SetFocusControl = Me.TextBox1
Application.OnTime Now, "SetFocus"

 

[patricktoulon]

@Dudu2
tape du texte et enter pour passer au textbox suivant
tu es chocolat

 

[Dudu2]

Je sais pas ce que tu utilises comme fichier.
Le fichier que j'ai posté fonctionne avec Entrée pour passer à TextBox2 ou clic direct dans TextBox2.
Il fonctionne sur mon W10 actuel et fonctionnait sur mon précédent PC W7.

 

[Dudu2]

 

[RyuAutodidacte]

Re, je vais étudié vos code afin de les comprendre correctement …

@Dudu2 ce que tu m'as proposé est vraiment intéressant, à 1ère vu j'ai pas eu de problème sur ma version d'excel 365 Mac

@patricktoulon ton code aussi, par contre je plante sur la partie réactivewindow … surement du code propre à windows …

J'ai eu aussi des remarques interessantes de tout le monde que je vais prendre en compte afin de savoir
quelle direction que je vais prendre, (peut être un mixte du condensé des réponse …)

En tout cas grand Merci, je reviens vers vous dès que j'aurais fait tous mes tests et pris une décision
Les réponses données de tout le monde m'enlèvent une bonne épines du pied

Pour infos : ce qui faut savoir sur Excel MAC :
Toutes les versions après Excel 2011, ne permettent plus d'ajouter/créer un Userform, on est obligé d'en créer un depuis Excel PC, pour le pouvoir ensuite le coder ensuite sur Mac, mais ce n'est pas tout …
Lorsque l'on sélectionne L'UserForm sur Excel Mac on pas même plus accès au propriétées (bref une vrai aberration de MS, alors qu'ils pouvait reprendre de l'existant sur Excel 2011 et l'améliorer)
Bien sur pour coder un Userform sur Mac, pas d'AtiveX, DLL, ou code propre à windows.

 

[patricktoulon]

re
ah oui pardon j'utilise la user32 de windows donc sur mac ça ne peux pas marcher
mille excuse Ryu
a tu essayé le me.hide:nomuserform.dhow

 

[RyuAutodidacte]

re
ah oui pardon j'utilise la user32 de windows donc sur mac ça ne peux pas marcher
mille excuse Ryu
a tu essayé le me.hide:nomuserform.dhow

Coucou Patrick
concernant le Me.Hide: Userform1.Show j'ai le même soucis avec ma version d'excel Mac malheureusement, au bout d'un moment ca bloque.
là je vais me pencher sur vos code …

 

[RyuAutodidacte]

Re à tous,

J'ai pris en compte l'ensemble des remarques (j'ai fait aussi le moins risqué par rapport à Excel Mac étant donné que parfois ça ne réagit pas comme sur PC - quoiqu'il en soit cela devrait marché sur les 2 plateformes) :

@Dranreb L'idée de gestion via une Msgbox est ce qu'il retourne est très bonne, mais malheureusement, j'ai toujours le même problème du curseur qui ne s'affiche plus

@patricktoulon @Dudu2 la gestion du UserForm_QueryClose j'aime bien et je me le mets de coté

@Dudu2 le Unload Me dans le KeyPress je prends, et le principe de Application.OnTime est la méthode la plus stable chez moi

je m'étais lancé sur une méthode sans MsgBox et grâce à vos exemples et conseils précieux, j'ai pu finalisé mon code.;
Pour être sur de la stabilité dans tous les cas, j'ai créé une méthode de Compteur pour les Textbox qui me permet d'afficher la 1ère fois le msg d'alerte puis la 2è fois il donne la main ce qui permet de Cancel (+ la possibilité de quitté direct avec le KeyPress)

Voilà, je vais vous fournir le fichier … si vous avez des remarques ou des axes d'amélioration je suis preneur, merci à tous

 

[patricktoulon]

Bonjour Ryu
pour tester c'est difficile il nous manque une librairie
et après l'avoir décoché le userform est bloqué
donc sur windows a mon avis il va y avoir des soucis
je vais regarder le code

 

[patricktoulon]

re je rejoins @Dranreb pour les opérateurs
cette ligne me perturbe
la condition 1 ne bloque pas la 2d et vise et versa
If Not IsNumeric(Chr(KeyAscii)) And Not Chr(KeyAscii) = "-" Then KeyAscii = 0