Discussion :

[JeanYves123]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[jerome.vaussenat]

Salut,

Voici une proposition de code.
J'ai mis des commentaires pour t'aider à comprendre ce que j'ai modifié.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub Choixdeladate()
Dim SerieDate As Date
 
On Error Resume Next
 
'boucle pour forcer la saisie d'une date dans la msgbox
Do
    Err.Number = 0
    SerieDate = InputBox("Merci de saisir une date", "EcrireJour/Mois/Année", 1)
Loop Until Err.Number = 0
 
'on place le contenu de la msgbox dans la feuille
Range("C4").Value = SerieDate
 
'on teste si c'est une année bixestile
If Year(SerieDate) Mod 4 = 0 And (Year(SerieDate) Mod 100 <> 0 Or Year(SerieDate) Mod 400 = 0) Then
Range("B17").Value = "Oui"  'on met oui dans la feuille
    Else
Range("C17").Value = "Non"   'on met non dans la feuille
    End If
End Sub
 
Sub Laveilleduchoixdeladate()
    'on récupère le contenu de la feuille pour faire -1
    Range("E4").Value = Range("C4").Value - 1
End Sub

Bonne utilisation. Et dis nous si çà te va.

Cordialement.

GG

[JeanYves123]

Re,

Je vous remercie, le code est parfait.

Agréable soirée,