Valeur d'un caption d'un label dans un textbox d'un autre formulaire
Bonjour
J'ai créé deux formulaires le premier comprend plusieurs textbox dont la valeur doit être une date.
le deuxième sert à la sélection de la date dans une listbox.
je cherche à récupérer la sélection date du deuxième formulaire et mettre cette valeur dans un Textbox sélectionné dans du premier formulaire.
Je bloque
Merci pour votre aide
Codes userform "F_Test"
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
| Private Sub UserForm_Initialize()
'Définit le nombre de caractères maxi dans le textbox_1
TextBox_1.MaxLength = 10
'Définit la tabultation automatique
TextBox_1.AutoSize = True
End Sub
Private Sub TextBox_1_Enter()
Dim temp As String
'Définition la valeur temp (je ne sais pas si c'est bon:?
'Je récupère les caractères après le symbole "_" du nom des textbox
temp = Mid(Me.TextBox_1.Name, InStr(1, Me.TextBox_1.Name, "_") + 1)
'ouvre formulaire "F_Date"
F_Date.Show
End Sub
Private Sub TextBox_2_Enter()
Dim temp As String
'Définition la valeur temp (je ne sais pas si c'est bon:?
'Je récupère les caractères après le symbole "_" du nom des textbox
temp = Mid(Me.TextBox_2.Name, InStr(1, Me.TextBox_2.Name, "_") + 1)
'ouvre formulaire "F_Date"
F_Date.Show
End Sub
Private Sub TextBox_3_Enter()
Dim temp As String
'Définition la valeur temp (je ne sais pas si c'est bon:?
'Je récupère les caractères après le symbole "_" du nom des textbox
temp = Mid(Me.TextBox_3.Name, InStr(1, Me.TextBox_3.Name, "_") + 1)
'ouvre formulaire "F_Date"
F_Date.Show
End Sub |
etc... il y a 12 textbox
Codes Userform "F_Date"
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
| 'ouverture de l'userform "F_Date"
Private Sub UserForm_Initialize()
Dim Tbl(-7 To 7, 1 To 2)
For j = -7 To 7
Tbl(j, 1) = Format(Date + j - 1, "dddd")
Tbl(j, 2) = Date + j - 1
Next j
Me.List_Date.ColumnCount = 2
Me.List_Date.ColumnWidths = "40,60"
Me.List_Date.List = Tbl
Me.List_Date.ListIndex = 8
Me.Lbl_JourChoisi.Caption = Me.List_Date.Column(1)
Me.Txt_DateChoisi = Me.List_Date.Column(1)
Me.Lbl_JourChoisi.BackColor = RGB(255, 255, 255)
Me.Lbl_JourChoisi.TextAlign = fmTextAlignCenter
Me.Lbl_JourChoisi.Font.Bold = True
End Sub
'Valeur choisi dans le label "Lbl_JourChoisi
Private Sub List_Date_Click()
Me.Lbl_JourChoisi.Caption = Me.List_Date.Column(1)
Me.Lbl_JourChoisi.BackColor = RGB(255, 0, 0)
End Sub
'Action lors de click sur bouton "Btn_Ok"
Private Sub Btn_Ok_Click()
'valeur du caption du label dans le textbox du userform "F_Test"
F_Test.Me("TextBox_" & (temp)) = Me.Lbl_JourChoisi.Caption 'c'est là que les choses se gâtent...
End Sub |
