vérification si une année et bissextile

[gege21]

Bonjours a tous

j'aimerais via un code VBA dans un userform vérifier si une année et bissextile
ou non (ont entre une année (ex 2011)dans textbox1 et ont a un message dans labe2 qui donne une réponse)

mais comment faire 😕

merci pour vos réponse🙄

 

[Dull]

Re : vérification si une année et bissextile

Salut Gégé21, le Forum

Un essai en pièce jointe

Private Sub CommandButton1_Click()
If DateSerial(TextBox1, 2, 29) + 1 = DateSerial(TextBox1, 3, 1) Then
    MsgBox "Année Bisextile", vbInformation
        Else
    MsgBox "Année Non Bisextile", vbCritical
End If
End Sub

Bonne Journée

 

[laetitia90]

Re : vérification si une année et bissextile

bonjour gege21 Dull
en passant par une fonction a adapter

Function IsBisextile(madate As Date) As Boolean
IsBisextile = Day(DateSerial(Year(madate), 3, 0)) = 29
End Function

 

[gege21]

Re : vérification si une année et bissextile

bonjours dul,laetitia90,le forum

désolé pour le retard
je vais utilise le code de dul

Private Sub CommandButton1_Click()
If DateSerial(TextBox1, 2, 29) + 1 = DateSerial(TextBox1, 3, 1) Then
    MsgBox "Année Bisextile", vbInformation
        Else
    MsgBox "Année Non Bisextile", vbCritical
End If
End Sub

seul souci si je n'entre pas de valeur et que je lance le code j'ai une erreur
a la place de cette erreur il faudrait un message qui me dit que je n'est pas entre de valeur
merci d'avance🙄

 

[gege21]

Re : vérification si une année et bissextile

pas d'idée pour moi 🙁

 

[Dull]

Re : vérification si une année et bissextile

Salut gégé21, Laetitia🙂, le Forum

Ajoute les lignes en Gras

Private Sub CommandButton1_Click()[B]
If TextBox1 = "" Then MsgBox "Veuillez entrer une année SVP...": TextBox1.SetFocus: Exit Sub
If Not IsNumeric(TextBox1) Then
MsgBox "Année non valide"
    With TextBox1
        .Value = ""
        .SetFocus
    End With
Exit Sub
End If[/B]
If DateSerial(TextBox1, 2, 29) + 1 = DateSerial(TextBox1, 3, 1) Then
    MsgBox "Année Bisextile", vbInformation
        Else
    MsgBox "Année Non Bisextile", vbCritical
End If
End Sub

J'ai aussi ajouter un test pour la validité de l'année

EDITION: Salut Jean Marcel 🙂 et Merci pour le

If [B]CLng[/B](TextBox1) < 1900

j'avais pourtant cherché et pas trouvé 😱

Bonne Journée

 

[gege21]

Re : vérification si une année et bissextile

merci pour les réponse c parfait 🙂