Message avant fermeture USF

[marcelio]

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

 

[Chris24]

bonsoir

Une piste en exemple

Test sur TextBox2

 

[chrystou]

Svp pourriez-vous me dire comment faire un nouveau post pour obtenir de l'aide ! Merci

 

[Chris24]

Bonsoir chrystou

En haut à droite de la page du forum tu as un bouton "Créer une nouvelle discussion"

 

[chrystou]

Bonsoir chrystou

En haut à droite de la page du forum tu as un bouton "Créer une nouvelle discussion"

Oui mais ça C'est pour être en live seulement non ??? Parce qu'il me dit 5 membres max ???

 

[marcelio]

Bonsoir Chris24 et le Forum,
Merci pour le fichier,
si je comprends bien il faut que j'intègre tous les TextBox et ComboBox.
et si je choisi d'enregistrer est t'il possible de rester sur l'USF.
Merci
Marcelio

 

[Chris24]

Bonjour

Re marcelio

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

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]

Oui mais ça C'est pour être en live seulement non ??? Parce qu'il me dit 5 membres max ???

 

[marcelio]

Bonjour Chris24 et le Forum,
Merci pour ce bout de code qui me permet de terminer mon fichier.
Bonne fin d'après midi à toi et au Forum.
Et encore merci
Marcelio

 

[marcelio]

Bonjour Chris24 et le Forum,
Ne t'inquiète pas mon fichier fonctionne correctement.
J'aurais juste voulu savoir si en fermant l'USF avec la croix ont pouvait obtenir le même message d'information.
Merci d'avance
Marcelio

 

[Dranreb]

Bonjour.
Cherchez du coté de UserForm_QueryClose

 

[marcelio]

Bonjour Dranreb;
J'ai déjà chercher de ce coté, mais je ne suis pas arriver à intégré le message d'information.
Merci
Marcelio

 

[Dranreb]

il suffit de mettre Cancel à autre chose que 0 ou False pour que la fermeture ne se fasse pas.
Ne soumettez votre traitement qu'à la condition CloseMode = vbFormControlMenu.

 

[Chris24]

Bonjour marcielio, Dranreb, le forum

regarde ce code s'il te convient

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

 

[marcelio]

Bonjour Chris24,
Merci pour ce code mais celui ci me demande une confirmation même si j'ai rien inscrit dans les TextBox.
Marcelio