Les Allergies
Alimentaires
Posez votre question Signaler

Message d'alerte sur Excel [Résolu]

cyrilg1976 - Dernière réponse le 8 déc. 2008 à 16:11
Bonjour,
Je viens de créer un message d'alerte sur Excel via "ThisWorkBook"
Dans ce message j'y indique une question avant la fermeture du ficher, à savoir : "La date de relance est-elle saisie ?"
avec en + 2 cases "oui" ou "non".
Seulement voilà ! Lorsque je teste ce message, si par exemple je clique sur "non", il ferme tout de même
mon fichier au lieu de rester dessus pour pouvoir saisir la date de relance.
Voici ce que j'ai tapé :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Msg = "La date de relance est-elle saisie ???"
StyleBoîteDialogue = 4
Title = "IMPORTANT"
réponse = MsgBox(Msg, StyleBoîteDialogue, Title)
End Sub
Merci par avance pour vos aides précieuses !
Lire la suite 

Message d'alerte sur Excel »

2 réponses
Réponse
+0
moins plus
m@rina 8259Messages postés 12 juin 2007Date d'inscription 2 juin 2012Dernière intervention 8 déc. 2008 à 15:03
Bonjour,

Ben oui, il suffit pas d'afficher une boîte de dialogue... Il faut tester les réponses et en particulier le No.

De plus la macro que tu nous donnes est une beforeSave et non pas une BeforeClose...

Voici ce qui marchera : 

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim msg, réponse
msg = "La date de relance est-elle saisie ???"
réponse = MsgBox(msg, 4, "Important")

If réponse = vbNo Then
MsgBox "Veuillez saisir la date avant de fermer"
Cancel = True
End If

End Sub

Ajouter un commentaire - Site web
Ajouter un commentaire
Réponse
+0
moins plus
cyrilg1976 8 déc. 2008 à 16:11
.................... :) m@rina................. t'es un(e) génie !!!
Ca fonctionne nickel ! je me doutais bien qu'il fallait une condition ! mais impossible de savoir comment la faire!!
Merci à toi !! Ce sujet peut etre cloturé !!!!

 Ajouter un commentaire
Ajouter un commentaire
Posez votre question
Ce document intitulé « Message d'alerte sur Excel » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?