Discussion :

[Overrider]

Bonjour à tous,

Je m'explique, J'ai un UserForm avec plusieurs TextBox (14 pour être précis) et quand je quitte mon UserForm, je lance une boucle for qui récupère ce qui est écrit dans chacune des textbox dans un tableau. Mon code est le suivant :

Code :

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

1
2
3
4
5
Private Sub MultiPage1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    For i = 1 To 14
        sVModule(1, i) = Me.TB2_1.Text
    Next
End Sub

Mon but est de remplacer :

Code :

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

sVModule(1, i) = Me.TB2_1.Text

Par quelque chose comme ceci :

Code :

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

sVModule(1, i) = Me.TB2_ & i & .Text

"TB2_n" etant l'identifiant de ma TextBox bien sûr.

[mercatog]

Code :

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

Me.Controls("TB2_"& i).Text

[Overrider]

Génial ! Un grand merci à toi mercatog !