High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

Message d'alerte sur Excel

Dernière réponse le 8 déc 2008 à 16:11:01 cyrilg1976, le 8 déc 2008 à 14:31:34 
 Signaler ce message aux modérateurs

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 !

Meilleures réponses pour « Message d'alerte sur Excel » dans :
Messages d’erreur liés aux formules Voir
Javascript - les boîtes de dialogue VoirQu'est-ce qu'une boîte de dialogue? Une boîte de dialogue est une fenêtre qui s'affiche au premier plan suite à un événement, et qui permet Soit d'avertir l'utilisateur Soit le confronter à un choix Soit lui demander de compléter un champ pour...
VBScript - Les boîtes de dialogue VoirQu'est-ce qu'une boîte de dialogue? Une boîte de dialogue est une fenêtre qui s'affiche au premier plan suite à un événement, et qui permet : soit d'avertir l'utilisateur ; soit le confronter à un choix ; soit lui demander de compléter un champ...
Posez votre question Répondre

1

m@rina, le 8 déc 2008 à 15:03:16

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

   
Répondre à m@rina

2

 cyrilg1976, le 8 déc 2008 à 16:11:01

.................... :) 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é !!!!

   
Répondre à cyrilg1976
Posez votre question Répondre
Ils ont besoin de votre aide