Creer un **MsgBox**


#1

Bonjour tt le monde
Merci de m’aider à fin dee creer un MsgBoxpour m’alerter avant 5 joursfichier.xlsx (30,4 Ko)

Merci infiniment.


#2

#3

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.


#4

Bjr,
Merci Merci Merci Merci Merci Merci :star_struck:
super