DÉFINIR TOUS LES CONTRÔLES D'UN USERFORM EN TANT QUE VARIABLES DANS UN TABLEAU (ARRAY)

Private Sub UserForm_Activate()
 Dim designation(1 To 8) As String
 Dim prix(1 To 8) As String
 Dim i As Integer
 
 alltbox = Array("TBox1", "TBox2", "TBox3", "TBox4", "TBox5", "TBox6", "TBox7", "TBox8")
 allmont = Array("mont1", "mont2", "mont3", "mont4", "mont5", "mont6", "mont7", "mont8")
 
 chemin = ActiveWorkbook.Path
 Open chemin + "\composants.txt" For Input As #1
 
 Do While Not EOF(1)
    i = i + 1
    Input #1, designation(i), prix(i)
 Loop
 Close #1
 
 For j = 0 To 7
    Controls(alltbox(j)).Value = designation(j)
    Controls(allmont(j)).Value = prix(j)
 Next j
End Sub