ophelie.brghl
XLDnaute Nouveau
Bonjour à tous,
Mon classeur est un calendrier regroupant toutes les manifestations qui auront lieu dans mon village au cours de l'année. J'ai inséré la date d'aujourd'hui, et j'ai fait une colonne où l'on m'indique combien de jours il y a entre la date d'aujourd'hui et la date de l'évènement. Ce que je voudrais, c'est que lorsqu'il ne reste que 21 jours et moins, une msgbox s'ouvre à l'ouverture du classeur pour me dire qu'il ne reste que 3 semaines et qu'il est temps de réaliser les affiches.
Ma macro pour le moment ressemble à çà :
Private Sub Workbook_Open()
If 0 <= Val(Range("K" & Rows.Count).Value) <= 21 Then
boite = MsgBox("Des évènements auront lieu dans les 3 prochaines semaines! Pensez à réaliser les affiches!", vbExclamation, "Alerte évènements")
End If
If 0 > Val(Range("K" & Rows.Count).Value) > 21 Then
boite = MsgBox("Aucun évènement dans les prochains jours.", vbInformation, "Alerte événement!")
End If
End Sub
Elle fonctionne, mais mon problème est que la msgbox s'ouvre à chaque ouverture du classeur et non lorsque l'évènement se rapproche. Si quelqu'un pouvait me secourir sur çà, je lui serai reconnaissante éternellement parce qu'àprès 2 jours de recherche je commence réellement à désespérer !
Merci à tous!
Mon classeur est un calendrier regroupant toutes les manifestations qui auront lieu dans mon village au cours de l'année. J'ai inséré la date d'aujourd'hui, et j'ai fait une colonne où l'on m'indique combien de jours il y a entre la date d'aujourd'hui et la date de l'évènement. Ce que je voudrais, c'est que lorsqu'il ne reste que 21 jours et moins, une msgbox s'ouvre à l'ouverture du classeur pour me dire qu'il ne reste que 3 semaines et qu'il est temps de réaliser les affiches.
Ma macro pour le moment ressemble à çà :
Private Sub Workbook_Open()
If 0 <= Val(Range("K" & Rows.Count).Value) <= 21 Then
boite = MsgBox("Des évènements auront lieu dans les 3 prochaines semaines! Pensez à réaliser les affiches!", vbExclamation, "Alerte évènements")
End If
If 0 > Val(Range("K" & Rows.Count).Value) > 21 Then
boite = MsgBox("Aucun évènement dans les prochains jours.", vbInformation, "Alerte événement!")
End If
End Sub
Elle fonctionne, mais mon problème est que la msgbox s'ouvre à chaque ouverture du classeur et non lorsque l'évènement se rapproche. Si quelqu'un pouvait me secourir sur çà, je lui serai reconnaissante éternellement parce qu'àprès 2 jours de recherche je commence réellement à désespérer !
Merci à tous!