Bonjour a tous,

un petit souci de passage, avec 1 seul calendrier pour 2 textbox

j'ai un usf avec 2 texbox, lorsque je clique sur le textbox1, j'ai un calendrier (nommé arrivée) qui s'affiche.

De là je clique sur une date qui vient s'inscrire des textbox1, si textbox1 non vide alors je change le caption du calendrier pour le nommer "départ", jusque là ok

mais je n'arrive pas à lui dire d'inscrit (avec calendrier caption "départ") dans la texbox2 sans qu'il modifie textbox1.

voici le code:
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
16
17
Sub Calendrier_DateClick(ByVal DateClicked As Date)
 
    UsfSaisieNouv.TextBox1.Value = CDate(Calendrier.Value)
 
If (UsfSaisieNouv.TextBox1.Text) <> "" Then
   'on ferme usf avec caption "calendrier arrivée"
   Unload UsfCalendrier
 
 
  End If
  'utilise le même USF calendrier en changeant de caption
    UsfCalendrier.Caption = "Calendrier Départ"
 
    UsfCalendrier.Show
    UsfSaisieNouv.TextBox2.Value = CDate(Calendrier.Value)
 
End Sub
Merci d'avance

Seb