Discussion :

[nibledispo]

bonjour,

quelqu'un peut-il m'expliquer la partie de syntaxe que je ne parviens pas à comprendre; à savoir la partie en rouge (col).

c'est un code tiré de la formation Jacques Boisgontier excellent à bien des égards mais qui hélas manque parfois d'explications pour le quasi profane en VBA.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub TableauEmboités()
  Dim Tbl(1 To 3)
  a = Array("a", "b", "c", "d")
  b = Array("e", "f", "g", "h")
  c = Array(1, 2, 3, 4)
  Tbl(1) = a
  Tbl(2) = b
  Tbl(3) = c
  For lig = LBound(Tbl) To UBound(Tbl)
     For col = LBound(a) To UBound(a)
        Cells(lig, col + 1) = Tbl(lig)(col)
     Next col
   Next lig
End Sub

Merci.
Cordialement

[mayekeul]

bonjour,

Simplement, cela retourne la valeur Tbl à l'index "lig"
Comme la valeur retournée est un ensemble (array), il retourne la valeur situé à l'index "col"

Euh.. c'est plus clair?

exemple si lig=1 et col=2 alors la réponse est dans ce cas "c" (car l'index de Tbl commence à 1 et celui des array commence à 0 )

[Invité]

Salut,

A mon sens, il faut éviter autant que possible ce genre de Tableau en VBA. Il me semble que c'est utilisé en VB et en VB.Net par contre où il est possible de déclarer des tableaux sous la forme

Code :

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

Dim Tableau (1 To 4, 15 To 30) (1 To 3, 0 To 5) ( 1 To 10) etc...

Mais en VBA, on ne peut pas déclarer les tableaux sous cette forme, par contre, on peut les lire et les créer (quelques fois sans faire exprès), mais à partir du moment où on ne peut pas les déclarer, j'estime pour ma part qu'on n'a pas pleinement la main ou la pleine maitrise sur ce type de tableau.

Ils sont souvent créé sans le faire exprès aussi en déclarant par exemple un tableau alloué par l'instruction Dim ou alloué par le VBA lorsqu'on associent le tableau à un range par exemple, puis en associant une plage de cellule à ce tableau:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim Tableau(1 To 10)
Tableau(1) = Range ("A1:A10")
Msgbox Tableau(1)(1, 1) 'donnera le .Value de la cellule A1 ici par exemple
' ---
Msgbox Tableau(1) 'Ne donnera rien
Msgbox Tableau(1, 1) 'Ne donnera rien
Msgbox Tableau(1) (1) 'Ne donnera rien
' ---
 
Dim Tableau()
Tableau() = Range("A1:A10")
Msgbox Tableau(1, 1)
Tableau(1, 1) = Range("A1:A10")
Msgbox Tableau(1, 1)(1, 1)
Tableau(1, 1)(1, 1) = Range("A1:A10")
Msgbox Tableau(1, 1)(1, 1)(1, 1)
Msgbox Tableau(1, 1)(1, 1)(2, 1)
Msgbox Tableau(1, 1)(1, 1)(3, 1)
'etc...

[nibledispo]

bonjour,

tout d'abord, merci de vos réponses

mayekeul : faut-il voir dans cette syntaxe une conséquence du transpose que l'on fait lorsque l'on copie un tableau une dimension dans une bd et réciproquement ?

si oui : cela devrait signifier que l'on ne peut trouver pareille syntaxe avec un tableau 2 dimensions et plus pour lesquelles transpose n'est pas requis (tutoriel Didier Gonnard).

Nouveau2 : j'avoue avoir du mal à te suivre. il est vrai que ne connaissant ni VB ni VB.NET je peux difficilement comparer.

cordialement.

[mayekeul]

non, pas que je sache.

C'est vrai que cela pourrais nous y faire penser... mais je ne crois pas.

en fait, dans ce cas ci, la syntaxe est valide pour des tableaux imbriqué.

la valeur x du tableau est égale à un tableau ...

[nibledispo]

bonsoir,

je clos le sujet bien que n'ayant toujours rien compris à cette syntaxe particulière.
il ne me reste plus qu'à espérer n'en avoir jamais besoin.

cordialement.