1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
| Dim Tableau() As Variant
Sub ValeurTableau()
Dim dimension As Variant
ReDim Tableau(6, dimension - 2)
Tableau(1, 1) = " Thickness "
Tableau(2, 1) = " Root Gap "
Tableau(3, 1) = " Length "
Tableau(4, 1) = " Width"
Tableau(5, 1) = " Passes per Layer "
Tableau(6, 1) = " Total Layers"
Tableau(1, 2) = " 13"
Tableau(2, 2) = "8"
Tableau(3, 2) = "5"
Tableau(4, 2) = "6"
Tableau(5, 2) = "12"
Tableau(6, 2) = "14 "
afficheTableau
End Sub
'##########################################################################################################################
Sub afficheTableau()
Dim i As Integer, String_Tableau As String
For i = 1 To 6
String_Tableau = String_Tableau & Chr(10) & Tableau(i, 1) & Space(7) & Tableau(i, 2)
Next
MsgBox String_Tableau
End Sub
'##########################################################################################################################
Sub test()
saisieTableau
End Sub |
