Discussion :

[trash_07]

Bonjour, je souhaite lister les date dans une colonne en fonction de l'année passé

function listerDate('année')

End function

Et récupérer dans ma feuille1 l'ensemble des date de l'année
Ex : avec l'année 2011 réaliser le résultat suivant

A1 : 01/01/2011
A2: 02/01/2011
..
..
..
A365: 30/12/2011

2012 :

A1 : 01/01/2012
..


Je ne vois pas comment le faire, si vous avez des pistes je suis preneur

[trash_07]

Ce n'est pas très beau, mais j'ai trouvé la fonction me permettant de faire ce que je voulais ^^

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
Function listerDate(Annee As String)
 
Dim i As Integer
Dim j As Integer
Dim nbJour As Integer
Dim k As Integer
k = 2
 
For i = 1 To 12
    nbJour = Day(DateSerial(Annee, 1, 0))
    For j = 1 To nbJour
    ActiveWorkbook.Sheets("Feuil1").Range("A" & k) = DateSerial(Annee, i, j)
    k = k + 1
    Next j
Next i
 
End Function