TextBox dynamique dans Userform

Bonjour

je suis confronté à un petit problème que je n'arrive pas à résoudre

j'ai un "UserForm1" dans lequel j'ai plusieurs "TextBox"

je voudrai atteindre la "TextBox" correspondante à une variable

par exemple si n = 3 atteindre la "TextBox3" soit l'équivalent de "UserForm1.TextBox & n"

Je ne vois pas comment faire

Salut, il faut utiliser UserForm1.Controls("TextBox" & n)

Par exemple:

Code:

---

1 2 3

Dim n As Integer n = 3 UserForm1.Controls("TextBox" & n).Text = "Texte de la TextBox" & n

---

Bonjour
je ne suis pas certain que c'est ce que tu cherches
mais si j'ai un userform avec 3 textbox et je veux remplir un textbox variable avec la cellule A1 je fais avec

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() i = InputBox("Indiquez le numéro de ta textbox", "saisir un Code", "saisir un code svp") ' Me.Controls("TextBox" & i).Text = Cells(1, 1) End Sub

---

Bonjour
en mixant les 2 réponses et en allant sur la textbox n (où n est la variable), je propose

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub UserForm_Activate()   Dim Ma_Valeur As String Ma_Valeur = InputBox("Choisir entre 1 et 3", "Retraité 83")   If Ma_Valeur > 3 or Ma_Valeur < 1 Then MsgBox ("Choisir une valeur entre 1 et 3") Unload Me Exit Sub Else Me.Controls("TextBox" & Ma_Valeur).SetFocus End If   End Sub

---