Excel calendar pliz help ! ! !

Question

Bonjour,
je voudrais récupérer la date du calendrier dans le textbox sélectionné
Voici le module avec une variable publique indiquant le textbox sélectionné (ici txt1) : 

     Public Cont As Control

et voici le code de mon UserForm :

 Sub UserForm_Initialize()
 Me.Calendar1.Visible = False 
 End Sub

 Sub txt1_MouseDown(ByVal Button As Integer, ByVal Shift As
 Integer, ByVal X As Single, ByVal Y As Single)
 Cont = Me.txt1 '=> ERREUR! Me.txt1 = ""

 Sub Calendar1_Click()
 Me.Cont.Value = Calendar1.Value
 End Sub
 
 With Me.Calendar1
 .Visible = True
 .Left = 0
 .Top = 0
 End With
 End Sub

Merci de me dire comment passer un control dans une variable.
Damien

cs_jeannot45 · Answer

voici un petit bout de code qui t'aidera peut etre:

Private Sub Calendrier_Click()
    Me.DateDebut.Value = Me.Calendrier.Value
End Sub

Calendrier est le nom de mon objet Calendar
DateDebut est le nom de mon controle texte

Jeannot

Excel calendar pliz help ! ! !

1 réponse

Discussions similaires