Sub saisiedate(ctrl)
If ctrl = "" Then Exit Sub
If Controls(ctrl).Value <> "" Then
Me.LabelDate = CDate(Controls(ctrl).Value)
Else
Me.LabelDate = Date
End If
calendar.Show
With Controls(ctrl)'------> Ici
.Value = Format(CDate(ladate), "ddd dd mmm yyyy")'------> Ici
.Tag = CDate(ladate) '------> Ici
End With '------> Ici
Unload calendar
End Sub
Private Sub CommandButton1_Click()
saisiedate (Me.T_Date.Name)
End Sub
Private Sub Btn_Valider_Click()
Range("A65536").End(xlUp).Offset(1, 0).Value = CDate(T_Date.Tag)'------> Ici
Range("A65536").End(xlUp).Offset(0, 1).Value = Cmb_Moyen.Value
Range("A65536").End(xlUp).Offset(0, 2).Value = T_Numéro.Value
Range("A65536").End(xlUp).Offset(0, 3).Value = Cmb_Categorie.Value
Range("A65536").End(xlUp).Offset(0, 4).Value = Cmb_Poste.Value
Range("A65536").End(xlUp).Offset(0, 5).Value = T_Libelle.Value
Range("A65536").End(xlUp).Offset(0, 6).Value = Ccur(T_Montant) '------> Ici
Unload Me
End Sub