Code Date

[Kam]

Bnjour à tous
excusé mois de vous posé une question et j'espère trouver une réponse chez vous
q'el est le code de la formule suivante:
si la date de l'ordinateur = la date saisie dans la cellule'A1' Then
MsgBox('augmentez la date de 36 mois')
Merci d'avance

 

[bertgrav]

bonjour,

Sub a()
If Range('a1').Value = Date Then
MsgBox 'augmentez etc etc....'
Else
End If


End Sub

amicalement

chantal