Discussion :

[retraite83]

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

[Franc]

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

Par exemple:

Code :

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

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

[BENNASR]

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 :

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

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

[Fab_de_chez_PERFORM]

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

Code :

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

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