MsgBox sous Excel

Salut à tous, je voudrais créer un MsgBox pour qu'il m'avertisse 6 jours avant une date précise. Mais je ne suis pas assez calé pour ça. Si vous pouvez m'aidé, je vous remercie. (date jj/mm/aaaa)

Code:

---

1 2 3 4 5

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) With TextBox1 If 10 / 11 / 2010 Then MsgBox "Bougies d'allumage a changer avant le 10/11/2010 ", vBcritical End With End Sub

---

Bonjour,

Utilise datediff pour te donner la difference entre deux date et now() pour te donner la date du jour.

comme cela :

Code:

---

1 2 3 4 5

Dim toto As Date toto = DateSerial(2010, 11, 10) If DateDiff("d", toto, Now()) < 6 Then MsgBox "Bougies d'allumage a changer avant le 10/11/2010 ", vbCritical End If

---

a adapter bien sur ;)

Bonjour,

voila qui peut t'aider:

Code:

---

1 2 3 4 5 6

Option Explicit Dim dateLimite as Date Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) dateLimite = CDate(textbox1.text) If dateLimite = "10/11/2010" Then MsgBox "Bougies d'allumage a changer avant le 10/11/2010 ", vBcritical End Sub

---

Qu'en dis tu ??

Lyonel

EDIT: zandru, trop rapide pour moi !! Et j'aime beaucoup ta solution nettement plsu développée (en si peu de temps) que la mienne !