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
| Public Sub lesArrayCestPasSiSimple2()
Dim myArray() As Variant
'Si tu écris ceci :
myArray = Array(Array(1), Array(1))
'pour lire les données, il faut écrire cela :
MsgBox myArray(1)(1)
MsgBox myArray(2)(1)
Stop
'Si tu écris comme ceci, c'est moins ambigu :
myArray = Array(Array(1), Array(77))
'pour lire les données, il faut écrire cela :
MsgBox myArray(1)(1)
MsgBox myArray(2)(1)
Stop
'Si tu écris comme cela, ça devient clair :
myArray = Array(Array(1, "toto", 3), Array(77, 9, "plouf"))
'pour lire les données, il faut écrire cela :
'on lit : Dans la case 1 de MyArray, je veux la première case du tableau sous-jacent etc..
' le nom du tableau sous-jacent est en fait myArray(1)
MsgBox myArray(1)(1)
MsgBox myArray(1)(2)
MsgBox myArray(1)(3)
MsgBox myArray(2)(1)
' le nom du tableau sous-jacent est en fait myArray(2)
'on lit : Dans la case 2 de MyArray, je veux la deuxième case du tableau sous-jacent etc..
MsgBox myArray(2)(2)
MsgBox myArray(2)(3)
'Attention : My array est bien un tableau à 1 dimension !
End Sub |
Partager