- 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
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