Code Tableau dans MsgBox

**Alexbreizhst** · 13/03/2013, 15h54

Bonjour, je veux créercetableau dans unemessage box mais il m'affiche un message d'erreur: " Message d'erreur 9 , L'indice n'appartien pas à la sélection."
Pourtant mon indice "i" est bien définie

Code :

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

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