Discussion :

[Toruk]

Bonjour,


Je fait les tableaux avec la fonction Array(), comme ci-dessous.
Avec un tableau à 2 dimensions, l'affectation à la plage ne donne
pas de bons résultats, j'ai une suite de #N/A.

Pourtant, la fenêtre des variables locales montre que le tableau est bien construit.
Une explication?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Public Sub lesArrayCestSimple()
    '
    Dim myArray() As Variant
    ' tableau à une dimension: résultat ok
    myArray = Array("toto", "tata", "titi", "tutu")
    Range("A1:D1") = myArray
    ' tableauà 2 dimension: résultat non ok.
    myArray = Array(Array("toto", "tata", "titi", "tutu"), Array("ello", "ella", "elli", "ellu"))
    Range("A1:E2") = myArray
End Sub

[Didier Gonard]

Bonjour,

A partir d’un code pris dans ce tutoriel, tu as construit une chose plus complexe qui n’est d’ailleurs pas abordée car hors sujet dans ce tutoriel.

Il s’agit de tableau de tableau ou de tableau en escalier, donc le tableau que tu as créé est bien un tableau à une dimension qui a pour éléments… des tableaux à une dimension, comme te le montrait d’ailleurs bien ta fenêtre variable locale.

Il faut bien en inspecter la notation :

Myarray(1)(1) se traduit ainsi : Myarray(1) est le nom de ton tableau et le (1) qui suit son index de tableau à une dimension.

D’où le résultat obtenu sur la feuille avec le code modifié ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Option Base 1
Public Sub lesArrayCestPasSiSimple()
    '
    Dim myArray() As Variant
    ' tableau à une dimension: résultat ok
    myArray = Array("toto", "tata", "titi", "tutu")
    Range("A1:D1") = myArray
    ' tableau de tableau à une dimension: résultat ok.
    myArray = Array(Array("toto", "tata", "titi", "tutu"), Array("ello", "ella", "elli", "ellu"))
    Range("A5:D5") = myArray(1)
    Range("A6:D6") = myArray(2)
End Sub

cordialement,

Didier