Tableau à plusieurs dimensions

Boyboy · 3 Janvier 2006

Bonjour,

Bonne année 2006 à tout le forum !

J'ai eu beau chercher partout, je ne trouve pas mon bonheur.
J'essaye de créer un tableau en VB de cette façon :
Dim tablo(3, 2)
tablo() = Array(Array(11, 12, 13), Array(21, 22, 23), Array(31, 32, 33))

Donc plusieurs lignes et plusieurs colonnes.
Est-ce la bonne façon de le créer? sachant que j'aimerais éviter le code suivant :
tablo(0, 0) = 11
tablo(0, 1) = 12
tablo(0, 2) = 13
tablo(1, 0) = 21
tablo(1, 1) = 22
tablo(1, 2) = 23
tablo(2, 0) = 31
tablo(2, 1) = 32
tablo(2, 2) = 33

Et ensuite j'aimerais accéder aux valeurs de ce tableau.
Comment faire?
comme ceci :
MsgBox userrights(1, 1)
MsgBox userrights(2, 1) ???

Je vous remercie par avance.

Boyboy

G.David · 3 Janvier 2006

Salut boyboy
Je ne comprends pas ce que tu veut
obtenir un tableau
11 12 13
21 22 23
31 32 33
?????
je ne vois pas du tout
Excuse moi
G.David

Hervé · 3 Janvier 2006

Bonjour boyboy, gdavid

Je ne pense pas que tu puisses utiliser ce type de syntaxe avec un tableau à plusieurs dimensions.

Il va te falloir soit passer par une boucle, soit créer le tableau à partir d'une liste se trouvant dans une feuille :

cas de la boucle :

Sub Bouton1_QuandClic()
Dim item As Variant
Dim tablo(3, 2)
Dim colonne As Integer
Dim ligne As Integer

colonne = 0
ligne = 0

For Each item In Array('11', '12', '13', '21', '22', '23', '31', '32', '33')
If colonne = 3 Then ligne = ligne + 1: colonne = 0
tablo(ligne, colonne) = item
colonne = colonne + 1
Next item

Range('a1').Resize(UBound(tablo, 1) + 1, UBound(tablo, 2) + 1) = tablo 'pour test
End Sub

cas de la liste :

en imaginant tes données commencant en A1

dim tablo as variant
tablo=range('a1').currentregion

salut

Boyboy · 3 Janvier 2006

Merci beaucoup !

Ca fonctionne bien !

Bonne année encore !
@+
Boyboy

Tableau à plusieurs dimensions

Boyboy

Guest

G.David

XLDnaute Impliqué

Hervé

XLDnaute Barbatruc

Boyboy

Guest

Discussions similaires