Calendrier automatique

Bonjour,

Je cherche à créer un calendrier automatique avec VBA à l'aide des boutons.

Avec le cours VBA Excel-pratique j'ai un tableau avec 12 colonnes pour les 12 mois.

Que dois-je modifier pour avoir les 365/366 jours de l'année en une seule colonne?

Le code est le suivant et je joins le fichier:

(Merci d'avance)

Sub generer_calendrier()

Application.ScreenUpdating = False

annee = SpinButton_annee.Value

Range("A3:X33").ClearContents

For mois = 1 To 12

nb_jours = Day(DateSerial(annee, mois + 1, 1) - 1)

colonne = mois * 2 - 1

For jour = 1 To nb_jours

date_du_jour = DateSerial(annee, mois, jour)

Cells(jour + 2, colonne) = date_du_jour

Next

Next

End Sub

Private Sub SpinButton_annee_Change()

TextBox_annee.Value = SpinButton_annee.Value

generer_calendrier

End Sub

Salut bastien88,

Je te renvoie vers ce sujet avec un calendrier pas trop mal fait...

Qu'en penses-tu ? Cela correspondrait peut-être à tes besoins.

Bonne journée,

Baboutz

Bonjour

pour un calendrier sur une colonne

A voir

Sub generer_calendrier()
Cells.ClearContents
An = SpinButton_annee.Value
L = 2
    For Mois = 1 To 12
        For J = 1 To Day(DateSerial(An, Mois + 1, 1) - 1)
            L = L + 1
            Range("A" & L).Value = DateSerial(An, Mois, J)
        Next
    Next
End Sub

A+

Maurice