Discussion :

[Sebphyto]

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

[joe.levrai]

Bonjour,

une idée qui s'affranchit du caption

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Calendrier_DateClick(ByVal DateClicked As Date)
 
With UsfSaisieNouv
    If .TextBox1.Text <> "" Then
        .TextBox2.Value = CDate(Calendrier.Value)
    Else
       .TextBox1.Value = CDate(Calendrier.Value)
    End If
End With
 
Unload UsfCalendrier
 
End Sub

[Sebphyto]

Bonjour Joe,

Eh bien oui, c'était si simple....

Je te remercie de ton aide

A bientôt

Seb