Bonjour Larife,
Voici un exemple vite fais
C'est pourtant pas compliqué, tu as toutes les donnée, tu crée ton doc, tu vas dans VBA (ALT+F11), tu ajoutes un Userform1, tu ajoute un Controle Calender, tu double clic et tu devrais voir le code suivant
Private Sub Calendar1_Click()
End Sub
La tu ajoute la ligne suivante qui te donnera la valeur du calandrier en A1
ActiveSheet.[A1] = Calendar1.Value
Donc ton code devrais resemblé a ceci:
Private Sub Calendar1_Click()
ActiveSheet.[A1] = Calendar1.Value
End Sub
Voila sur ta feuille tu crée un commenbutton1, le code de ce bouton devra être:
Private Sub CommandButton1_Click()
Userform1 Show
End Sub
Et voila, regarde le fichier joint, je t'ai mis le code de Petchy et le code de Jacques.
@Christophe@