* Bonjour, *

j'appel le calandar par ce code par contre pourquoi je ne recupere pas le value du calandar ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim ligne  As Integer
Private Sub UserForm_Initialize()
 
 Dim Ctl As Control
 Set Ctl = Me.Controls.Add("MSCAL.Calendar", "Calendar1", True)
 Ctl.Left = 6: Ctl.Top = 6
 Ctl.Width = 198: Ctl.Height = 132
 
End Sub
Private Sub Calendar1_Click()
 
        ligne = ActiveCell.Row
        Worksheets("Bilan").Range("C" & ligne).Value = Calendar1.Value
 
End Sub
merci