Le 4 mai 2021, la plateforme Yahoo Questions/Réponses fermera. Elle est désormais accessible en mode lecture seule. Aucune modification ne sera apportée aux autres sites ou services Yahoo, ni à votre compte Yahoo. Vous trouverez plus d’informations sur l'arrêt de Yahoo Questions/Réponses et sur le téléchargement de vos données sur cette page d'aide.
Pop up alerte sur Excel?
Bonjour à tous. J'aimerais savoir comment faire apparaitre une fenêtre pop up dans une feuille Excel lorsque 15 jours se sont écoulés après une date donnée.
Exemple : la cellule E603 a pour valeur le 31/07/2103 et j'aimerais que s'affiche une alerte le 15/08/2013.
Merci d'avance pour vos réponses :)
1 réponse
- il y a 8 ansRéponse favorite
Bonjour.
Il va falloir passer par VBA. Pour ça, ouvre l'éditeur VBA dans ton fichier Excel en appuyant sur ALT+F11. Dans la fenêtre qui s'est ouverte double-clique sur "ThisWorkbook" dans l'arborescence du projet à gauche, et dans la fenêtre de texte (vide pour l'instant) qui s'est ouverte, copie/colle ceci :
Private Sub Workbook_Open()
Dim MaDate As Date
MaDate = Worksheets("LeNomDeMaFeuille").Range("A1")
If DateDiff("d", DateValue(MaDate), Now()) > 14 Then
MsgBox ("Mon message.")
End If
End Sub
Il faut changer le nom de la feuille et la case dans lesquels il faut chercher la date à comparer, dans ton exemple remplace A1 par E603 donc, et de même pour le nom de ta feuille. Remplace également le message dans MsgBox, c'est le message qui s'affichera.
Ce code s'execute à chaque ouverture du fichier. Et tu seras alerté quand il y aura strictement plus de 14 jours entre la date donnée et aujourd'hui. Tu peux changer le 14 et le > en autre chose si tu veux, et tu peux également changer pour compter autre chose que des jours : le premier paramètre de DateDiff est "d", il signifie "en jours", mais tu peux compter autrement (cf. http://msdn.microsoft.com/fr-fr/library/b5xbyt6f(v... ).
Voilà, j'espère que ça répond à ton besoin.
Cordialement.
EDIT : Yahoo Q/R remplace la fin de la 3è ligne de code par "...", je ne sais pas pourquoi. Corrige avant de mettre en application le code : Range("A1")
