Bonjour,

Je voudrais créer un tableau avec l'année en cours, allant de la date du jour à 1 an auparavant. Du coup j'ai fait ça :

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
Sub AnneeEnCours()
 
    Dim F As Worksheet
    Set F = Worksheets("AnneeEnCours")
 
    Dim lig As Integer
    Dim nbJour As Integer
    Dim dateJour As Date
 
    nbJour = 365
    dateJour = Now()
 
    F.Cells(2, 1) = dateJour
 
    For lig = 3 To nbJour
        F.Cells(lig, 1) = dateJour - lig + 2
    Next   
End Sub
Ca marche mais comment faire pour récupérer l'année en cours + tous les jours du premier mois.
Exemple nous sommes le 26 novembre 2020, si j'exécute mon code, j'aurais du 26/11/2019 au 26/11/2020
Je voudrais avoir du 01/11/2019 au 26/11/2020

J'espère que c'est assez claire, sinon n'hésitez pas à me poser des questions.

Clémence