Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Remplir un tableau a 2 dimensions avec une liste de variables.

4 réponses
Avatar
lapie11
Bonsoir a tous,
Je ne sais pas remplir un tableau a 2 dimensions , a partir d'une
liste de donn=E9es!?
Pourriez vous me renseigner ?
Par exemple, j'ai essayer cela, mais cela ne fonctionne pas
correctement ce n'est apparemment pas la bonne methode.

Dim mytab(1, 3)
Dim a, b
a =3D Array("Info1", "Info2", "Info3", "Info4")
b =3D Array("titre1", "titre2", "titre3", "titre4")
mytab(0, 0) =3D a
mytab(1, 0) =3D b

Merci par avance.

4 réponses

Avatar
tissot.emmanuel
Bonsoir,

Sub RemplirTableau()
Dim i As Integer
Dim mytab(1, 3)
Dim a, b
a = Array("Info1", "Info2", "Info3", "Info4")
b = Array("titre1", "titre2", "titre3", "titre4")
For j = 0 To 3
mytab(0, i) = a(i)
mytab(1, i) = b(i)
Next
End Sub

Bonne chance, les tableaux c'est pas du gateau !

Manu/

a écrit dans le message de news:

Bonsoir a tous,
Je ne sais pas remplir un tableau a 2 dimensions , a partir d'une
liste de données!?
Pourriez vous me renseigner ?
Par exemple, j'ai essayer cela, mais cela ne fonctionne pas
correctement ce n'est apparemment pas la bonne methode.

Dim mytab(1, 3)
Dim a, b
a = Array("Info1", "Info2", "Info3", "Info4")
b = Array("titre1", "titre2", "titre3", "titre4")
mytab(0, 0) = a
mytab(1, 0) = b

Merci par avance.
Avatar
JB
Bonjour,

Si les données sont dans le tableur en A1:C2 par ex:

11 12 13
14 15 16

a = [A1:C2]
For i = 1 To UBound(a, 1)
For j = 1 To UBound(a, 2)
MsgBox a(i, j)
Next j
Next i

http://boisgontierjacques.free.fr/fichiers/jb-tableaux.zip

Cordialement JB


On 21 mai, 00:14, wrote:
Bonsoir a tous,
Je ne sais pas remplir un tableau a 2 dimensions , a partir d'une
liste de données!?
Pourriez vous me renseigner ?
Par exemple, j'ai essayer cela, mais cela ne fonctionne pas
correctement ce n'est apparemment pas la bonne methode.

Dim mytab(1, 3)
Dim a, b
a = Array("Info1", "Info2", "Info3", "Info4")
b = Array("titre1", "titre2", "titre3", "titre4")
mytab(0, 0) = a
mytab(1, 0) = b

Merci par avance.


Avatar
lapie11
Bonjour,

Les données ne sont pas dans des cellules.
Donc la réponse d'Emmanuel est plus proche du contexte de mon
utilisation.
Merci a tous les deux.

Cordialement, L...
Avatar
JB
Bonjour,

Tableau 'a' de 4 lignes x 3 colonnes:

a = Evaluate("{1,2,3;4,5,6;7,8,9;10,11,12}")

JB




On 21 mai, 08:38, wrote:
Bonjour,

Les données ne sont pas dans des cellules.
Donc la réponse d'Emmanuel est plus proche du contexte de mon
utilisation.
Merci a tous les deux.

Cordialement, L...