MsgBox excel

[jo50160]

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

 

[Pierrot93]

Re : MsgBox excel

Bonsoir Jo

pas sur d'avoir tout compris, mais essaye peut être ainsi :

Option Explicit
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim dateLimite As Date
dateLimite = CDate(TextBox1.Text)
If Year(dateLimite) Mod 2 = 0 Then
    If dateLimite >= Date And dateLimite < (Date + 8) Then _
        MsgBox "Bougies d'allumage a changer avant le " & dateLimite, vbCritical
End If
End Sub

bonne soirée
@+