Re le forum
J'ai mis en appli ta macro, j'ai dû enlever userform1 (je vois pas ce qu'il vient faire ici...)
donc voici un début d'appli:
Private Sub Calendar1_Click()
Dim nom As String
Dim jour As Integer
Dim annee As Integer
Dim mois As Integer
Dim jour_annee As Date
jour = Calendar1.Day
annee = Calendar1.Year
mois = Mid(Calendar1.Value, 4, 2)
jour_annee = CDate(Calendar1.Value) - CDate("01/01/" & annee) + 1
Cells(11, 1) = jour
Cells(12, 1) = mois
Cells(13, 1) = annee
Cells(14, 1) = jour_annee
''''''''''''''Code
End sub
A+++