nrdz83
XLDnaute Impliqué
Bonjour à tous,
j'ai ce code
placé dans thisworkbook, il permet de m'afficher si la date en cellule "D3" de ma page BD_Machine est dépassée par rapport à aujourdhui()
je voudrais étendre cette condition de D3 à D12.
Comment dois je procéder ?
Par avance merci
Amitiés
j'ai ce code
Code:
Private Sub Workbook_Open()
Dim T_Date
T_Date = Date
If T_Date >= Range("D3").Value Then
MsgBox "Attention, il y a des date à échéance de VGP de dépassées"
End If
End Sub
placé dans thisworkbook, il permet de m'afficher si la date en cellule "D3" de ma page BD_Machine est dépassée par rapport à aujourdhui()
je voudrais étendre cette condition de D3 à D12.
Comment dois je procéder ?
Par avance merci
Amitiés
Dernière édition: