VBA - simplification de mon code et suppression de répétition

[Tanlia]

Bonjour,

J'ai souvent ce genre de répétition qui revienne dans mon code :

Un exemple :

TextBoxnom1 = nom(0)
TextBoxnom2 = nom(1)
TextBoxnom3 = nom(2)
TextBoxnom4 = nom(3)
...

(le but est de remplir une série de textbox d'un userform avec les valeurs d'une variable tableau)

J'aimerai supprimer ces répétitions.
J'ai pensé à utiliser une boucle , mais je ne sais pas comment procéder avec le nom des objets (ici, les textbox).
Est-ce possible? Ou il y a t'il une autre méthode?

Merci de vos réponses

Tanlia

 

[Efgé]

Re : VBA - simplification de mon code et suppression de répétition

Bonjour Tanlia
Sans fichier pour vérifier, une proposition:

Sub test()
For i = 1 To 4
    TextBox(TextBoxnom & i) = nom(i - 1)
Next i
End Sub

Cordialement

 

[Pierrot93]

Re : VBA - simplification de mon code et suppression de répétition

Bonjour,

essaye comme ceci, à utiliser dans le module de l'userform :

Dim i As Integer
For i = 1 To 4
    Me.Controls("TextBox" & i) = tableau(i - 1)
Next i

bonne journée
@+

Edition : aarf un peu en retard moi, bonjour fg

 

[Tanlia]

Re : VBA - simplification de mon code et suppression de répétition

Merci pour vos réponses rapides.

J'ai corrigé mon problème.

Bonne journée