nrdz83
XLDnaute Impliqué
Bonsoir à tous,
dans la première partie du code ci-dessous, ça m'affiche un message d'alerte si des dates à échéances sont dépassées.
Code fonctionnent à merveille grace aux lumières de plusieurs personnes du forum.
Je cherche à faire un message d'alert également si des dates sont dépassées dans une autre feuille.
J'essaye de mettre donc un code similaire à la suite mais ça ne fonctionne pas.
Comment dois je le modifier ?
Par avance merci pour vos lumières
Amitiés et merci d'avance
dans la première partie du code ci-dessous, ça m'affiche un message d'alerte si des dates à échéances sont dépassées.
Code fonctionnent à merveille grace aux lumières de plusieurs personnes du forum.
Je cherche à faire un message d'alert également si des dates sont dépassées dans une autre feuille.
J'essaye de mettre donc un code similaire à la suite mais ça ne fonctionne pas.
Comment dois je le modifier ?
Par avance merci pour vos lumières
Code:
'Rappel d'échéances visites VGP
Dim T_Date, Msg As String, cel As Range
T_Date = Date
For Each cel In Feuil3.Range("D3:D12")
If T_Date >= cel.Value Then
Msg = "Attention, il y a des dates à échéance de VGP dépassées"
Exit For
End If
Next
If Msg <> "" Then MsgBox Msg
'End Sub
'Rappel échéances remplacement filet
Dim L_Date, Msg2 As String, cel As Range
L_Date = Date
For Each cel In Feuil9.Range("N3:N550")
If L_Date >= cel.Value Then
Msg2 = "Attention, il y a des dates à échéance du remplacement du filet dépassées"
Exit For
End If
Next
If Msg2 <> "" Then MsgBox Msg
End Sub
Amitiés et merci d'avance