Tableau à deux dimensions
Bonjour,
Alors, là (!) ca doit être un problème de compréhension général de ma part...
Je créer un tableau à deux dimensions :
Code:
Dim Tableau3() As Integer
Puis je le remplis:
Code:
1 2 3 4 5 6 7 8 9 10 11
| For j = 1 To col 'Colonne
For i = 1 To 20 'Ligne
ReDim Tableau3(i, j)
If .Cells(i + 2, j + 1).Value <> "" Then
Tableau3(i, j) = .Cells(i + 2, j + 1).Value
Else
Tableau3(i, j) = 0
End If
Next i
Next j |
J'ai executé ce bout de code en mode pas à pas et les valeurs se place correctement. En revanche, lorsque je test mon tableau :
Code:
1 2 3 4 5 6 7
| strMessage = ""
For Boucle = 1 To 20
test = Tableau3(Boucle, 1)
strMessage = strMessage & LTrim(Tableau3(Boucle, 1)) & " "
Next Boucle
MsgBox strMessage |
... que des "0"...
Je ne comprends VRAIMENT pas... 8O Le bout de code précédent test la première "colonne" de mon tableau à deux dimensions.
Où ai-je commis une erreur ?
Merci par avance pour vos réponses ! =)
Kimy