UserForm_QueryClose fonctionne une fois

Rebonjour le forum!!!

Je bloque à nouveau sur l'utilisation de ma procédure UserForm_QueryClose :oops:

Fonctionnement recherché : lorsque je click sur la croix de ma frame, je souhaite que la frame se masque - le message de confirmation s'affiche - et si l'utilisateur souhaite revenir en arrière que ma frame s'affiche à nouveau et ce indéfiniment.
Cependant avec mon programme ci-aprés je peux faire ce scénario qu'une fois!

Code:

---

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

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)   Dim Rep As Byte   FmAccueilUtilisateur.Hide If CloseMode = vbFormControlMenu Then Rep = MsgBox("Etes-vous sûr de vouloir quitter l'accès aux Encours en Production?", vbYesNo + vbQuestion, "Quitter l'accès aux données techniques?") If Rep = vbYes Then Workbooks("EncoursProduction.xlsm").Close False 'Fermeture du fichier EncoursProduction + enregistrement End 'Fin du programme End If End If FmAccueilUtilisateur.Show   End Sub

---

Je ne vois pas la faille :arf:

Si quelqu'un a une idée...je suis preneur...

Ciao

Tu n'as pas recopié correctement le code que je t'ai mis dans l'autre post !

http://www.developpez.net/forums/sho...91&postcount=2
.

Rebonjour Fring,

Effectivement, le code est différent maintenant afin de répondre au fonctionnement énnoncé si avant.

Au début j'ai concervé lettre pour lettre ton code et le phénomen était identique...

Je pense que ça tient à pas grand chose, mais qu'est ce que ça fait perdre du temps ce ptit détail

Ciao jean

ET finalement, c'est résolu ou pas??

Non toujours pas....

A mon avis, tu ne peux envisager cela que avec un userform que tu ouvres à nouveau en non modal, ce qui limite considérablement la portée, puisqu'il sera possible de cliquer dans une feuille du classeur alors que le userform est visible...

Code:

---

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

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Dim Reponse As VbMsgBoxResult   If CloseMode = 0 Then Me.Hide Reponse = MsgBox("Voulez-vous fermer?", vbYesNo + vbQuestion, "Fermeture") If Reponse = vbNo Then Cancel = True Me.Show False 'ouverture en non modal End If End If End Sub

---

Si c'est uniquement pour un aspect esthétique que tu souhaites masquer le userform, je pense qu'il faudra te passer de cette fioriture. Sinon, explique-nous la raison de ce masquage

Exaxt c'était purement esthétique...donc je vais me rabattre sur cette solution...

Mais vu que je débutes sur VBA je perçois pas encore bein les limites :roll:

Merci et bonne soirée!!!!

Je ne suis pas certain que tu doives te rabattre sur ma solution...

Car un userform ouvert non modal permet de continuer à traiter le classeur excel...

Personnellement, j'abandonnerais simplement l'idée de masquer le userform au click sur la croix...

En fait après cette frame, j'en ai d'autres qui suivent pour guider l'utilisateur.

Seulement à la fin il accèdera à la feuille EXCEL...