Message box personnalisé lors de l'enregistrement avec conditions

[fred2705]

Lors de l'enregistrement j'aimerais qu' une message box personnalisé (API) apparaisse seulement si la cellule T645 contient "1" ou si la cellule T800 contient "1"

Voici mon ébauche de code mais je ne sais pas quoi mettre sous Case 1 et Case 2

Merci pour votre aide

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

' si une de ces deux case est coché afficher la messagebox perso
If Feuil1.Range("T645") = 1 Or Feuil1.Range("T800") = 1 Then

'Ma message box perso
MsgBoxPerso "Le prix sur les feuille suivantes ont changées" & Chr(10) & Feuil1.Range("F1") & Chr(10) & " N'oublier pas de générer le PDF", "Attention:", vbQuestion, "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 stopper l'enregistrement

End Select        'fin du choix

End If
End Sub

 

[camarchepas]

Re : Message box personnalisé lors de l'enregistrement avec conditions

Bonjour ,

Je suppose que Msgboxperso est une fonction ou routine ....

Pour la partie select case :

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 stopper l'enregistrement
  Cancel = True
End Select

 

[PMO2]

Re : Message box personnalisé lors de l'enregistrement avec conditions

Bonjour,

Je pense qu'il s'agit de la msgBox personnalisée de Didier Fourgeot (inspiré des travaux de Michel Pierron ou de ceux de Thierry Gasperment). Si c'est le cas, voici un extrait de l'aide :

Exemple d'utilisation

MsgBox personnalisée

Le code nécessaire pour afficher cette MsgBoxPerso et en exploiter la réponse utilisateur peut ressembler à celui-ci :
Dim MonMessage As String
Dim Rep As Byte

MonMessage = "Mes cher(e)s ami(e)s," & vbLf & vbLf & "Cet article vous a-t'il plu ?"

Rep = MsgBoxPerso(MonMessage, "mDF XLpages.com", vbQuestion, "Super !", "Aucun intérêt", True)

Select Case Rep
Case 0
' ici le traitement (éventuel) si Annulation
' ...
Case 1
' ici le traitement si réponse = "Super !"
' ...
Case 2
' ici le traitement si réponse = "Aucun intérêt"
' ...
End Select