Remplir un tableau a 2 dimensions avec une liste de variables.
4 réponses
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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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.
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/
<lapie11@gmail.com> a écrit dans le message de news:
1179699282.173671.8950@z28g2000prd.googlegroups.com...
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
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.
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
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.
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
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
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.
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...
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.