Userform calandrier

Bonjour ,

Dans mon fichier en feuil 1 j'ai inséré un calandrier dans un userform , je souhaiterai lorsque je clique sur une date du calandrier que cette date s'affiche en A1par exemple

MERCI

Bonjour,

Je n'ai pas le contrôle Calendar sur cet ordi mais je suppose que si ton calendrier s'appelle Calendar1 tu peux faire un double-clic dessus et dans la fenêtre module qui s'affiche taper ceci entre Private Sub et End Sub :

Range("A1").Value = Me.Calendar1.Value

A adapter au nom de ton contrôle.

Il se peut que tu sois obligé de choisir un autre événement que celui proposé par défaut sur ton calendrier après le double-clic, par exemple Private Sub Calendar1_Change() et remplacer Changer par AferUpdate.

A+

Bonjour , çà marche .

Merci , Bonne journée