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

Le
lapie11
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.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
tissot.emmanuel
Le #4531941
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/


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
Le #4531871
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.


lapie11
Le #4531861
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...
JB
Le #4542581
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...


Publicité
Poster une réponse
Anonyme