Discussion :

[counterbob]

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 :

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
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 :

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
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

[Theze]

Bonjour,

Testes de cette façon :

Code :

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

1
2
 
F_Test.Controls("TextBox_" & temp).Text = Me.Lbl_JourChoisi.Caption

[counterbob]

Bonjour,

Testes de cette façon :

Code :

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

1
2
 
F_Test.Controls("TextBox_" & temp).Text = Me.Lbl_JourChoisi.Caption

Bonjour et merci
Il y a une erreur d'exécution:
temp non trouvé = vide.

J'ai trouvé une autre solution qui fonctionne.
Clic sur textbox ouverture F_Date puis
par double-clic sur les textbox

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
18
19
20
21
 
Private Sub TextBox_1_Enter()
'ouvre formulaire "F_Date"
F_Date.Show
End Sub
Private Sub TextBox_2_Enter()
'ouvre formulaire "F_Date"
F_Date.Show
End Sub
Private Sub TextBox_3_Enter()
F_Date.Show
End Sub
Private Sub TextBox_1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox_1 = F_Date.List_Date.Column(1)
End Sub
Private Sub TextBox_2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox_2 = F_Date.List_Date.Column(1)
End Sub
Private Sub TextBox_3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox_3 = F_Date.List_Date.Column(1)
End Sub

Etc..

Je vais essayer de faire une boucle pour tous les textbox date.
Merci
@+