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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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.
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
873
Retour