Bonsoir , j'ai ecris le code suivant qui permet de créer un calendrier de 12 mois il marche bien mais est t il suffisamment optimisé ? Merci à vous
Function calendrier(x As Date, y As Integer) As Variant
compteur = compteur + 1 'variable publique
If Month(x) = Month(x + 1) Then
Cells(compteur, colonne + 1) = x 'colonne est une variable publique
x = x + 1
Else
Cells(compteur, colonne + 1) = x
colonne = colonne + 1
compteur = 0
x = x + 1
End If
If Year(x) > y Then GoTo 1
calendrier x, y
1:
End Function
'partie test:
Sub test_calendrier()
Dim année As Integer
année = CInt(InputBox("saisir une année"))
Call calendrier(DateSerial(année, 1, 1), année)
End Sub