Discussion :

[jo50160]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zandru]

Bonjour,

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

comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[peaceandloveman01]

Bonjour,

voila qui peut t'aider:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !