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