lancer des macro si année bissextile ou non

[dede039]

bonjours a tous

j"ai un calendrier sur une feuille
et je voudrai que quand je change d'année en cellule e3
si c'est une année normale lancer une macro 1 automatiquement
et ci c'est une année bissextile lancer une macro 2 automatiquement

merci de votre aide

 

[job75]

Bonsoir dede039,

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 Sub

La macro Worksheet_Change doit être dans le code de la feuille contenant la date.

A+

 

[dede039]

bonsoir job75

merci pour la réponse

cdt