lancer des macro si année bissextile ou non

dede039 · 12 Novembre 2018

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 · 12 Novembre 2018

Bonsoir dede039,

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 Sub

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

A+

dede039 · 12 Novembre 2018

bonsoir job75

merci pour la réponse

cdt

lancer des macro si année bissextile ou non

dede039

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

dede039

XLDnaute Occasionnel

Discussions similaires

lancer des macro si année bissextile ou non

dede039

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

dede039

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency