Année est bissextile

[apdf1]

Bonjour,

Toujours besoin de vous. Comment peut-on savoir si une année est bissextile sans passé par un MsgBox comme ci-dessous, mais plutôt envoyer vers un Label1 qui se trouve sur un UserForm.
Merci d’avance

Cordialement

Max

Private Sub CommandButton3_Click()
If TextBox7 = "" Then MsgBox "Veuillez entrer une année SVP...": TextBox7.SetFocus: Exit Sub
If Not IsNumeric(TextBox7) Then
MsgBox "Année non valide"
With TextBox7
.Value = ""
.SetFocus
End With
Exit Sub
End If
If DateSerial(TextBox7, 2, 29) + 1 = DateSerial(TextBox7, 3, 1) Then
MsgBox "Année Bisextile !", vbInformation

Else
MsgBox "Année Non Bisextile !", vbCritical
End If
End Sub

 

[Cousinhub]

Re : Année est bissextile

Bonjour,

Peut-être ainsi (j'ai un peu modifié la façon de déterminer si l'année est bissextile ou non....)

Private Sub CommandButton3_Click()
If TextBox7 = "" Then MsgBox "Veuillez entrer une année SVP...": TextBox7.SetFocus: Exit Sub
If Not IsNumeric(TextBox7) Then
    MsgBox "Année non valide"
    With TextBox7
        .Value = ""
        .SetFocus
    End With
    Exit Sub
End If
If IsDate("29/02/" & TextBox7) Then
    Label1.Caption = "Année Bissextile"
Else
    Label1.Caption = "Année Non Bissextile"
End If
End Sub

PS, lorsque tu mets du code, pense à utiliser la balise "Code", qui ressemble à #

Bonne journée

 

[apdf1]

Re : Année est bissextile

Re,bhbh

Je te remerci beaucoup

Bonne journée

@+

Max