lancer des macro si année bissextile ou non
- Initiateur de la discussion dede039
- Date de début
job75
XLDnaute Barbatruc
Bonsoir dede039,
La macro Worksheet_Change doit être dans le code de la feuille contenant la date.
A+
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E3]) Is Nothing Or Not IsDate([E3]) Then Exit Sub
If Month(DateSerial(Year([E3]), 2, 29)) = 3 Then Macro1 Else Macro2
End Sub
Sub Macro1()
MsgBox "Année normale"
End Sub
Sub Macro2()
MsgBox "Année bissextile"
End SubA+
bonsoir job75
merci pour la réponse
cdt
merci pour la réponse
cdt
Discussions similaires
- Question
- Résolu(e)
- Question
