Bonjour tt le monde
Merci de m’aider à fin dee creer un MsgBoxpour m’alerter avant 5 joursfichier.xlsx (30,4 Ko)
Merci infiniment.
Bonjour tt le monde
Merci de m’aider à fin dee creer un MsgBoxpour m’alerter avant 5 joursfichier.xlsx (30,4 Ko)
Merci infiniment.
Bonsoir @imad, @DocteurExcel,
Je ne maitrise pas trop les alertes par MsgBox, d’autant qu’il serait quand même plus simple à mon avis de gérer les alertes par MFCs.
Toutefois, voici une proposition:
Une macro:
Sub Echéance()
With Sheets("feuil1")
derlg = .Cells(Rows.Count, "R").End(3).Row
For i = 3 To derlg
If Date - .Cells(i, 18) = -5 Then MsgBox "Echéance dans 5 Jours pour" _
& vbLf & .Cells(i, 5)
Next
End With
End Sub
Et dans "Thisworkbook"
Private Sub Workbook_Open()
Call Echéance
End Sub
Fichier en retour ICI==> imad V1.xlsm (39,7 Ko)
Cordialement.
Bjr,
Merci Merci Merci Merci Merci Merci
super