Discussion :

[Jeanvaljean44]

Rebonjour le forum!!!

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

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 :

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

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

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

Ciao

[fring]

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
.

[Jeanvaljean44]

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

[Pierre Fauconnier]

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

[Jeanvaljean44]

Non toujours pas....

[Pierre Fauconnier]

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 :

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

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