Protected bDteDebCaller As Boolean Private Sub calCalendrier_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calCalendrier.SelectionChanged calCalendrier.Visible = False Dim dte As String dte = calCalendrier.SelectedDate.ToShortDateString() If (bDteDebCaller) Then 'TOUJOURS A FALSE??? txtDteDeb.Text = dte Else txtDteFin.Text = dte End If End Sub Private Sub cmdiDteDeb_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles cmdiDteDeb.Click bDteDebCaller = True 'MODIF calCalendrier.Visible = True End Sub Private Sub cmdiDteFin_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles cmdiDteFin.Click bDteDebCaller = False 'MODIF calCalendrier.Visible = True End Sub
'Dans Mon module Public MaTextBox as TextBox 'Sur Click d'un premier bouton MaTextBox=txtDateDeDebut 'Sur click d'un second bouton MaTextBox.text="01/01/03" 'A l'écran, rein ne s'affiche dans ma zone de saisie txtDateDebut???