MsgBox Before close
Résolu
Chicorette
Messages postés
84
Date d'inscription
Statut
Membre
Dernière intervention
-
Chicorette Messages postés 84 Date d'inscription Statut Membre Dernière intervention -
Chicorette Messages postés 84 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- MsgBox Before close
- Smart close - Télécharger - Optimisation
- Msgbox batch ✓ - Forum Autoit / batch
- Libreoffice msgbox ✓ - Forum Programmation
- The application has hung and will now close. we apologize for the inconvenience. - Forum Windows
- The application has hung and will now close we apologize for the inconvenience ✓ - Forum jeux en ligne
4 réponses
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
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
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
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
