Message avant fermeture USF

Chris24

XLDnaute Impliqué

• 31 Octobre 2017

• #2

bonsoir

Une piste en exemple

Test sur TextBox2

 

Pièces jointes

• Message avant fermeture USF.xls

  31 KB · Affichages: 52

Vote positif 0 Vote négatif

C

chrystou

XLDnaute Nouveau

• 31 Octobre 2017

• #3

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

 

Vote positif 0 Vote négatif

Chris24

XLDnaute Impliqué

• 31 Octobre 2017

• #4

Bonsoir chrystou

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

 

Vote positif 0 Vote négatif

C

chrystou

XLDnaute Nouveau

• 31 Octobre 2017

• #5

Chris24 à dit:

Bonsoir chrystou

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 31 Octobre 2017

• #6

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

 

Vote positif 0 Vote négatif

Chris24

XLDnaute Impliqué

• 1 Novembre 2017

• #7

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

 

Vote positif 0 Vote négatif

Chris24

XLDnaute Impliqué

• 1 Novembre 2017

• #8

chrystou à dit:

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 1 Novembre 2017

• #9

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

 

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 2 Novembre 2017

• #10

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 2 Novembre 2017

• #11

Bonjour.
Cherchez du coté de UserForm_QueryClose

 

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 2 Novembre 2017

• #12

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 2 Novembre 2017

• #13

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.

 

Vote positif 0 Vote négatif

Chris24

XLDnaute Impliqué

• 2 Novembre 2017

• #14

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

 

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 2 Novembre 2017

• #15

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

 

Vote positif 0 Vote négatif