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