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

massol

XLDnaute Junior
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 :

Code:
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
 

massol

XLDnaute Junior
Bonjour,

Voici mon code :

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)

XLDnaute Barbatruc
Bonsoir,
Comme ceci, une demande Enregistrer peut être aussi demandée
Bruno
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 851
dernier inscrit
vaiata