XL 2013 Message quand je ferme le fichier si une cellule est égale à 1

[massol]

Bonjour,

Est-il possible de faire la chose suivante ?

Si la cellule H16=0, alors afficher lorsqu'on quitte le fichier un message indiquant qu'il faut modifier la cellule H3 (par exemple) en y mettant la valeur N/A. Il faut bien sûr que j'ai la possibilité de reprendre la main et d'effectuer la modif demandée.

Ce que j'ai fait (et qui ne fonctionne pas) :

Dans Thisworkbook j'ai mis le private sub suivant :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("ADD_INFOS").Activate
If Range("H16").Value = 0 Then
MsgBox ("Le nombre d'itération étant égal à zéro, 'Delivery Date OTD2' est-il bien égal à 'N/A'?")
End If
End Sub

Le pb c'est que lorsque la cellule H16 est égale à zéro j'ai bien le message qui s'affiche mais je n'ai pas possibilité de reprendre la main. J'ai simplement la possibilité de cliquer sur OK et le fichier se ferme....

Il faudrait que je puisse choisir entre "oui, non" :
OUI : le fichier se ferme
NON : je reprend la main

Merci par avance.

Cdlt.
Jérôme

 

[youky(BJ)]

Bonjour Jérôme,
If MsgBox("Le nombre d'itération étant égal à zéro" & vbCr & "Delivery Date OTD2 est-il bien égal à N/A?", _
vbExclamation + vbYesNo, "VERIF") = vbYes Then
'oui
else
'non
end if

Bruno

 

[massol]

Bonjour,

Que dois-je mettre à la place de 'oui et 'non pour que :
OUI : le fichier se ferme
NON : je reprend la main

Cdlt.
Jérôme

 

[youky(BJ)]

Bonjour Jérôme,
If MsgBox("Le nombre d'itération étant égal à zéro" & vbCr & "Delivery Date OTD2 est-il bien égal à N/A?", _
vbExclamation + vbYesNo, "VERIF") = vbYes Then Activeworkbook.close

C'est tout
Bruno

 

[mutzik]

bonjour

dans la clause 'non', mets
cancel = true
cancel = annuler l'opération
true = vrai
soit : j'annule l'opération de fermeture et je reprends la main

 

[massol]

Bonjour,

Voici mon code :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("ADD_INFOS").Activate
If MsgBox("Le nombre d'itération étant égal à zéro" & vbCr & "Delivery Date OTD2 est-il bien égal à N/A?", _
vbExclamation + vbYesNo, "VERIF") = vbYes Then
'oui
ActiveWorkbook.Close
Else
'non
Cancel = True
End If
End Sub

Le problème c'est que lorsque je clique sur "oui" j'ai deux fois le message ? Je dois donc cliquer deux fois sur "oui" ? Il doit y avoir une redondance ?

Cdlt.
Jérôme.

 

[youky(BJ)]

Bonsoir,
Comme ceci, une demande Enregistrer peut être aussi demandée
Bruno

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("ADD_INFOS").Activate
If MsgBox("Le nombre d'itération étant égal à zéro" & vbCr & "Delivery Date OTD2 est-il bien égal à N/A?", _
vbExclamation + vbYesNo, "VERIF") = vbNo Then Cancel=False
End Sub

 

[massol]

Merci beaucoup !!

Cdlt.
Jérôme