Msgbox à trois possibilité

[nikkyb]

Bonjour voici un code :

Private Sub CommandButton7_Click()
If msgbox("ATTENTION, Voulez vous sauvegarder avant de quitter ?", vbYesNoCancel, "Modification") = vbYes Then
ThisWorkbook.Save
Unload Me
Application.Quit
If vbNo Then
Unload Me
Application.Quit
End If

If vbCancel Then Exit Sub
End If
End Sub

Avec celui ci je peut donc :
1 fermer avec enregistrement (ca marche)
2 annuler (ca marche)
3 fermer sans enregistrer (marche pas)

Et je ne sais pas pourquoi
Y a il une erreur dans mon code merci beaucoup!

 

[Pierrot93]

Re : Msgbox à trois possibilité

Bonjour,

essaye peut être ainsi :

Private Sub CommandButton7_Click()
Dim i As Integer
i = MsgBox("ATTENTION, Voulez vous sauvegarder avant de quitter ?", vbYesNoCancel, "Modification")
If i = vbYes Then
    ThisWorkbook.Save
    Unload Me
    Application.Quit
    ElseIf i = vbNo Then Unload Me:       Application.Quit
    ElseIf i = vbCancel Then Exit Sub
End If
End Sub

bon après midi
@+

 

[nikkyb]

Re : Msgbox à trois possibilité

Super seul truc quand je clique sur non donc quitter sans sauvegarder j'ai toujours le message de microsoft : voulez vous sauvegarder avant de quitter, comment faire pour ne pas afficher ce message?

Merci!

 

[Pierrot93]

Re : Msgbox à trois possibilité

Re,

modifie ainsi :

Private Sub CommandButton1_Click()
Dim i As Integer
i = MsgBox("ATTENTION, Voulez vous sauvegarder avant de quitter ?", vbYesNoCancel, "Modification")
If i = vbYes Then
    ThisWorkbook.Save
    Unload Me
    Application.Quit
    ElseIf i = vbNo Then Unload Me: Application.DisplayAlerts = False: _
        Application.Quit: Application.DisplayAlerts = True
    ElseIf i = vbCancel Then Exit Sub
End If
End Sub

@+

 

[nikkyb]

Re : Msgbox à trois possibilité

RE
une petite erreur sur ton code :
Application.DisplayAlerts = True (False)

De cette maniere ca fonctionne

Merci beaucoup!

 

[Pierrot93]

Re : Msgbox à trois possibilité

Re,

non, à priori je mets le premier à "false"...

ElseIf i = vbNo Then Unload Me: Application.DisplayAlerts = False:

 

[nikkyb]

Re : Msgbox à trois possibilité

Le second doit aussi etre = false
sinon il me met toujours le message d'alerte...

 

[Pierrot93]

Re : Msgbox à trois possibilité

Re,

pas ce problème chez moi, la confirmation concerne peut être un autre classeur...

Edition : précision, je suis sous 2003...

 

[nikkyb]

Re : Msgbox à trois possibilité

Je suis en 2007 peut etre pour ca...

Une autre question, sais tu comment enlever la croix rouge qui se situe en haut à droite des userform ?

 

[Ubot303]

Re : Msgbox à trois possibilité

Bonjour,

Je suis curieux 🙂

Pourquoi vouloir se substituer à un message d'alerte Excel en le désactivant et en ré-écrivant ce qu'il fait?

 

[Pierrot93]

Re : Msgbox à trois possibilité

Re,

pour la croix rouge, fait une recherche sur le forum, de nombreux exemples, c'est possible via les API windows... mais perso pas les codes sous le coude....

 

[nikkyb]

Re : Msgbox à trois possibilité

Car avec le message de microsoft je revient sur les feuil excel si j'annule alors quand passant par l'userform, en aucun cas je revient vers les feuil excel tout simplement.
J'essai donc de faire en sorte qu'on ne puisse plus acceder au feuils....

 

[Pierrot93]

Re : Msgbox à trois possibilité

Re,

plutôt que d'enlever la croix, perso je préfère la désactiver, code ci-dessous à utiliser dans le module de l'usf :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then Cancel = 1
End Sub

@+

 

[Ubot303]

Re : Msgbox à trois possibilité

Mes remarques en vrac :

1) ElseIf i = vbCancel Then Exit Sub : ne ferme pas Excel

2) Pourquoi ne pas mettre un Activeworksheet.close (0)? Au lieu de vouloir désactiver les messages d'alerte?

3) Pourquoi ne pas profiter de la macro Evenementielle "Workbook_BeforeClose(Cancel As Boolean)" en vérifiant que si Cancel alors on ferme tout sans enregistrer avec un .close(0) ?

 

[Pierrot93]

Re : Msgbox à trois possibilité

Re

Ubot, pour le 1er bien vu, cela sort de la sub....
pour le 2ème point, perso connais pas "Activeworksheet.close (0)", il serait interressant que tu nous explique son fonctionnement...