Message avant fermeture USF

marcelio

XLDnaute Occasionnel
Bonjour à tous,
Dans mon USF j'ai environ 40 TextBox et 10 ComboBox.
Certain TextBox et ComboBox ont été renommer.
J'ai un bouton VALIDER qui me sert à enregistrer mes données et à fermer l'USF.
et un bouton Quitter qui me permet de fermer l'USF sans enregistrer les données.
Est t'il possible de mettre dans le bouton QUITTER un message Demandant si ont sur de quitter sans enregistrer.
Dès qu' un textBox ou un ComboBox est remplis.
Merci d'avance
Marcelio
 

Pièces jointes

  • Message avant fermeture USF.xls
    30 KB · Affichages: 39

Chris24

XLDnaute Impliqué
Bonjour

Re marcelio

Un exit Sub après ta procédure d'enregistrement

VB:
Private Sub CommandButton1_Click()  'boutton Quitter
    If Flag = False Then
        Unload Me
    Else
        reponse = MsgBox("VOULEZ-VOUS ENREGISTRER AVANT DE QUITTER", vbYesNoCancel + vbExclamation)
            If reponse = vbNo Then
                Unload Me
            Else
                'ICI LA SUITE DE TA PROCEDURE
                Exit Sub
            '# DANS CE CAS FERMETURE DU FORMULAIRE PAR LA CROIX #
            End If
    End If
End Sub
 

Chris24

XLDnaute Impliqué
Oui mais ça C'est pour être en live seulement non ??? Parce qu'il me dit 5 membres max ???
Sans titre.png
 

Chris24

XLDnaute Impliqué
Bonjour marcielio, Dranreb, le forum

regarde ce code s'il te convient

VB:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim Reponse As Byte

If CloseMode = vbFormControlMenu Then
    Reponse = MsgBox("Etes-vous sûr de vouloir quitter?", vbYesNo + vbQuestion, "Quitter")
    If Reponse = vbYes Then
        Unload Me
    Else
        Cancel = True
    End If
End If
End Sub

Cdt
 

Discussions similaires

Statistiques des forums

Discussions
311 740
Messages
2 082 049
Membres
101 882
dernier inscrit
XaK_