MsgBox Before close
Résolu
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
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
4 réponses
-
Donc on peut combiner une sub et une Dim en plus Nickel
Merci pour ce grand pas dans l'autodidactisme aveugle ;-) -
Génial!!!! Merci!!!
Il y avait juste un guillemet en trop, mais NICKEL MERCIIIIIIII
Que mon plaisir vous soit renvoyé!!
Merci -
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 -
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
