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

massol · 14 Décembre 2018

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

youky(BJ) · 14 Décembre 2018

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 · 17 Décembre 2018

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) · 17 Décembre 2018

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 · 17 Décembre 2018

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 · 17 Décembre 2018

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) · 17 Décembre 2018

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

massol · 18 Décembre 2018

Merci beaucoup !!

Cdlt.
Jérôme

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

massol

XLDnaute Junior

youky(BJ)

XLDnaute Barbatruc

massol

XLDnaute Junior

youky(BJ)

XLDnaute Barbatruc

mutzik

XLDnaute Barbatruc

massol

XLDnaute Junior

youky(BJ)

XLDnaute Barbatruc

massol

XLDnaute Junior

Discussions similaires