VBA excel +dates

[flyersgoaler]

Bonjour,
Je dois faire un programme en VBA dans lequel je dois afficher sur douze feuilles les 12mois de l'année, ce que j'ai réussi à faire. Mais mon problème est que je dois mettre les dates pour chacun des mois sur les feuilles. Par exemple, pour le mois d'octobre, les dates 2008-10-01 jusqu'à 2008-10-31 seraient visibles. J'ai fait un code, mais les dates ne s'affichent que pour le mois de Janvier, et je ne suis pas sûr si le mois de février va seulement contenir 28 dates. Je possède excel 2007. Alors voici mon code et merci a l'avance.


Sub Bouton1_Clic()
Dim i As Integer
Dim e As Integer
Dim D As Single
Dim d1 As Date
Dim j As Integer
Dim annee As Integer
Dim MoisEnCours As Integer
'Choix del'année
annee = 2008

For i = 1 To 12
Call ActiveWorkbook.Worksheets.Add(after:=Worksheets(Worksheets.Count))
ActiveSheet.Name = Format(30 * i, "mmmm")
For j = 1 To 31
d1 = "01-" & i & "-" & annee
MoisEnCours = Month(DateAdd("d", j - 1, d1))
If MoisEnCours = i Then ActiveSheet.Cells(j + 3, 4) = DateAdd("d", j - 1, d1)
Next j
Next i
End Sub

 

[Guest]

Re : VBA excel +dates

Bonjour flyersgoaler,

voici une boucle:

2008 étant une année bissextile, février comporte 29 jours.

Sub Bouton1_Clic()
    Dim i As Integer
    Dim j As Integer
    Dim annee As Integer
  
    'Choix del'année
    annee = 2008
    For i = 1 To 12
        ActiveWorkbook.Worksheets.Add after:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = MonthName(i)
        j = 1
        Do
           ActiveSheet.Cells(j + 3, 4) = DateSerial(annee, i, j)
           j = j + 1
        Loop While Month(DateSerial(annee, i, j)) = i
    Next i
End Sub

A bientôt