Manipulation de dates, année bissextile
Bonjour,
Tous mes voeux pour cette année 2020.
Je n'arrive pas à configurer un programme VBA. On me demande de créer une fonction à partir des composantes d’une date et qui retourne sous forme de texte le joue X-1 (donc la veille) tout en tenant compte de la bissextilité.
Donc :
1. si l'année est divisible par 4 et non divisible par 100, ou
2. si l'année est divisible par 400.
Ce qui j'aimerais faire :
Pour le premier bouton commande :
- Avoir un message Box ou l'on écrirait la date par exemple : 12/02/2014
- Cette date s'afficherait dans une cellule
- indiquer si oui ou non l'année est bissextile
Pour le second bouton commande :
- qu'il retourne la date X-1 en tenant compte de la bissextilité.
Mon code est le suivant :
POUR LE PREMIER BOUTON :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Sub Choixdeladate()
Dim SerieDate As Variant
SerieDate = InputBox("SerieDate()", "EcrireJour/Mois/Année", 1)
Range("C4").Value = SerieDate
If Year(SerieDate) Mod 4 = 0 And (Year(SerieDate) Mod 100 <> 0 Or Year(SerieDate) Mod 400 = 0) Then
Range("B17").Select
IsBissextil = Oui
Else
Range("C17").Select
IsBissextil = Non
End If
End Sub
POUR LE SECOND BOUTON :
Sub Laveilleduchoixdeladate()
Range("E4").Select
ActiveCell.Value = SerieDate - 1
End Sub |
PS : évitez les critiques s'il vous plait, je sais que mon code est ridicule, mais j'essaie.
Merci pour vos réponses,
Cordialement,
