P
philippe69
Guest
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:
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:
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'))