affiché une date par un calendrier

[julie999]

bonjour
j'ai crée un bouton qui appelle un calendrier par userform
mon souci est que je voudrais que si je clique sur une date du calendrier elle s'affiche en celulle w2 de la feuille "reception"
je vous les codes utilisés

pour le bouton qui appelle l'userform:

Sub Bouton1_QuandClic()
Load UserForm1
UserForm1.Show
Unload UserForm1
End Sub

pour le code de l'userform :

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Unload Me
End Sub

Private Sub UserForm_Initialize()
With UserForm1
.Left = ActiveCell.Offset(0, 1).Left + 25
.Top = ActiveCell.Offset(0, 1).Top + 100
End With
End Sub

auriez vous une idée
merci julie

 

[julie999]

Re : affiché une date par un calendrier

re j'ai trouver la solution


Private Sub Worksheet_Activate()
If [W2] = "" Then
Range("W2:AD2").Select
Load UserForm1
UserForm1.Show
Unload UserForm1
End If
End Sub

julie