Evénement à date préçise

[philippe69]

Bonjour Robert, le forum


Grâce à Robert, j'ai pu rajouter une condition supplémentaire à ma macro qui affiche un msgbox dans le cas ou la date rentrée dans ma textbox correspond à la date anniversaire d'une date située en A11 de ma feuille 3

J'aimerais une condition similaire pour une autre textbox mais qui affiche le message lorsque l'on rentre dans cette textbox une date supérieure ou égale au 1er jour du mois suivant la date anniversaire
ex: si la date en A11 est 11/05/2005
La date anniversaire est 11/05/2006
le msgbox ne devra apparaître qu'à partir du 01/06/2006

Les manipulations de dates en vba étant encore pour moi 1 monde mystérieux, je sollicite votre aide pour modifier le code de Robert avec les indications ci-dessus.

Philippe

Code:

Macro..................

If Day(DateValue(TextBox1.Value)) = Day(aniv) And _
Month(DateValue(TextBox1.Value)) = Month(aniv) _
And DateDiff('yyyy', aniv, DateValue(TextBox1.Value)) = 1 Then
MsgBox 'Joyeux Anniversaire...'
Exit Sub
End If

......... suite macro

Pour info: aniv = DateValue(Sheets('Feuil3').Range('A11'))

 

[ERIC S]

Bonjour

essaie:

If Month(DateValue(TextBox1.Value)) = Month(aniv)+1 _
And year(DateValue(TextBox1.Value)) > year(aniv)+ Then
MsgBox 'ton message'
Exit Sub

qui affiche le message si l'année est supérieure à celle de A11 et que le mois est le suivant, quel que soit le jour

A+

 

[ERIC S]

re

cela ne répond pas forcément à ton pb mais je ne sais pas combien de temps ce message doit être affiché .....

A+

 

[philippe69]

cela répond parfaitement
Merci

Philippe

 

[ChTi160]

Salut philippe69
bonjour ERIC S
je ne sais pas si j'ai bien compris la question Lol mais voila une procèdure qui fait ce que j'ai cru comprendre Lol
je n'ai rien construit juste tester en changeant la variable madate

Sub test()
Dim madate As Date, madateAniversaire As Date

madate = '15/6/2006'
madateAniversaire = '5/5/2006'
If madate >= DateSerial(Year(madateAniversaire), Month(madateAniversaire) + 1, 1) Then
MsgBox 'Coucou'
End If
End Sub
bonne fin de Week End