MsgBox Before close

Résolu/Fermé

Chicorette Messages postés 84 Date d'inscription mercredi 20 juin 2007 Statut Membre Dernière intervention 27 janvier 2016 - 17 nov. 2014 à 22:56
Chicorette Messages postés 84 Date d'inscription mercredi 20 juin 2007 Statut Membre Dernière intervention 27 janvier 2016 - 18 nov. 2014 à 00:25

Bonjour,

Je souhaite rappeler l'utilisateur sur le renseignement d'une cellule avant fermeture.
Si oui enregistrer le classeur et fermer, si non retour sur la cellule

Peut-on combiner une sub et une dim? (parce que ça ne marche pas bien sûr!!)
J'ai commencé cela mais

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ret As Integer
ret = MsgBox(""Avez-vous pensé à modifier la cellule F3?", vbYesNo, "Rappel")
If ret = vbNo Then
Exit Sub
Else
ThisWorkbook.Save
End If
End Sub

Comment puis-je lui dire en une fois?

Merci et désolée si ma tentative fait mal aux yeux des pro...ce n'est pas volontaire.

Chicorette

A voir également:

4 réponses

Réponse 1 / 4

senecartour Messages postés 325 Date d'inscription dimanche 12 mai 2013 Statut Membre Dernière intervention 29 octobre 2020 3
17 nov. 2014 à 23:06

Bonsoir,
Dans Thisworkbook colle ce code

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("Avez-vous pensé à modifier la cellule F3?", vbYesNo, "Rappel") = vbNo Then
Exit Sub
Else
ThisWorkbook.Save
End If
End Sub

A plus

Réponse 2 / 4

Chicorette Messages postés 84 Date d'inscription mercredi 20 juin 2007 Statut Membre Dernière intervention 27 janvier 2016 2
17 nov. 2014 à 23:12

Merci pour ta réponse rapide!

Mais que je clic oui ou non dans les deux cas, il ferme le classeur direct.
en fait faudrait pas lui dire autre chose après vbNo Then que Exit Sub?

Merci

Yoda
18 nov. 2014 à 00:07

Bonsoir,

Essayez avec ça:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ret As Integer
ret = MsgBox(""Avez-vous pensé à modifier la cellule F3?", vbYesNo, "Rappel")
If ret = vbNo Then
Cancel = True
Else
ThisWorkbook.Save
End If
End Sub

Réponse 3 / 4

Chicorette Messages postés 84 Date d'inscription mercredi 20 juin 2007 Statut Membre Dernière intervention 27 janvier 2016 2
18 nov. 2014 à 00:22

Génial!!!! Merci!!!
Il y avait juste un guillemet en trop, mais NICKEL MERCIIIIIIII

Que mon plaisir vous soit renvoyé!!

Merci

Réponse 4 / 4

Chicorette Messages postés 84 Date d'inscription mercredi 20 juin 2007 Statut Membre Dernière intervention 27 janvier 2016 2
18 nov. 2014 à 00:25

Donc on peut combiner une sub et une Dim en plus Nickel
Merci pour ce grand pas dans l'autodidactisme aveugle ;-)

Discussions similaires

Msgbox dans un .bat

IMPOSSIBLE DE LANCER FORTNITE/The application has hung and will now close. We ap

[VB]MsgBox avec variable

MessageBox en PHP

Vbs: MsgBox avec bouton personnaliser ?

Discussions similaires

Newsletters