re,
je te repasse le fichier quand tu clique sur le bouton tu fait apparaitre le calendrier en cliquant une date elle s'inscrit dans la cellule A2.
cela ne le faisait pas avant car tu n'avais pas ni de code pour le ctrlcalendar
Private Sub CtrlCalendar_Click()
Range('a2') = CtrlCalendar.Value
End Sub
quand le calendrier est installé sur le USF clique droit sur le calendrier et code te donne :
Private Sub CtrlCalendar_Click()
End Sub
il reste a lui mettre :
Range('a2') = CtrlCalendar.Value
voila j'espere que c'est clair
Jocelyn [file name=calendrier_20051108134615.zip size=13954]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/calendrier_20051108134615.zip[/file]
un petit supplément d'information si tu veux que le USF se ferme des que tu as sélectionné une date et qu'elle c'est inscrite en A2
le code du ctrlcalendar devient
Private Sub CtrlCalendar_Click()
Range('a2') = CtrlCalendar.Value
Unload UserFormCal
End Sub
Message édité par: Jocelyn, à: 08/11/2005 14:17