Quelle action pour sortir de la procédure d'enregistrement

Bonjour,

J aimerais simplement savoir quoi mettre dans cette fin de code (en Case2) pour sortir de la procédure d'enregistrement

J'utilise une message box perso de ce type:

MsgBoxPerso "Le prix sur les feuilles suivantes à changés", "Attention:", vbExclamation, "Enregistrer", "Annuler"

voici la fin de code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

'....fin de code:
Case 2
'Si le bouton cliqué est Annuler j'aimerais stopper l'enregistrement, que dois-je mettre?

End Select      
End Sub

merci pour votre aide

Bonjour,

Exit Sub

Cordialement

Merci ddetp88,

J ai essayer de l'intégrer comme ceci mais ca marche pas???

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If Feuil1.Range("Z2") = "" Then
Exit Sub
Else

'Ma message box perso
MsgBoxPerso "Le prix sur les feuilles suivantes à changés", "Attention:", vbExclamation, "Enregistrer", "Annuler"

Select Case reponse

Case 1
'Si le bouton cliqué est Enregistrer j'aimerais continuer l'enregistrement

Case 2
'Si le bouton cliqué est Annuler j'aimerais stoper l'enregistrement
Exit Sub
End Select        'fin du choix
End If
End Sub

Bonjour,

Sans le code de MsgBoxPerso impossible de savoir exactement.

Déposer un fichier réduit à l'essentiel.

eric

Voici le fichier.

merci

Re,

Personnellement je ferai un userform avec trois boutons au lieu d'utiliser un super code de msgbox personnalisée.

Cordialement

Ok mais pour ma culture personnel quel est la solution.

Merci

Il faut lire les explications :

' - Puis, dans votre propre code, il suffit d'appeler la fonction MsgBox comme suit :

' varReponse = MsgBoxPerso(prompt [, title] [, icon] [, caption1] [, caption2] [, cancel ])

et surtout les appliquer...

eric