salut à tous, j'ai encore un petit problème mon code ne marche pas.
Ce que je voudrais c'est que pendant 8 jours avant la date limite le message s'affiche.
Et aussi lorsque la date limite est atteinte je voudrais que ce message puisse revenir 2 ans plus tard.
Exp: 10/11/2010 ....10/11/2012 et ainsi de suite.
Merci pour vos réponse. A+
Je suis nul.
Private sub textBox1_Exit()
Dim dateLimite as Date
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
dateLimite = CDate(textbox1.text)
If dateLimite = "10/11/2010"< 8 Then MsgBox "Bougies d'allumage a changer avant le 10/11/2010 ", vBcritical
End Sub
Ce que je voudrais c'est que pendant 8 jours avant la date limite le message s'affiche.
Et aussi lorsque la date limite est atteinte je voudrais que ce message puisse revenir 2 ans plus tard.
Exp: 10/11/2010 ....10/11/2012 et ainsi de suite.
Merci pour vos réponse. A+
Je suis nul.
Private sub textBox1_Exit()
Dim dateLimite as Date
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
dateLimite = CDate(textbox1.text)
If dateLimite = "10/11/2010"< 8 Then MsgBox "Bougies d'allumage a changer avant le 10/11/2010 ", vBcritical
End Sub