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 : Sélectionner tout - Visualiser dans une fenêtre à part
Dim Tableau3() As Integer
Puis je le remplis:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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... 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