passer d'un Array à un tableau à 2 colonnes

Bonjour

le code

Code:

---

1 2 3

tableau =array("aaaa","bbbb","cccc","dddd")

---

est un vecteur
par contre
je voudrais ecrire une matrice de 2 colonnes et 4lignes donc rajouter 4 noms en plus : "eeee", "ffff", "gggg" , "hhhh"

je peux lecrire

Code:

---

1 2 3 4 5 6

dim tableau(1 to 4, 1 to 2 ) as variant   tableau(1,1)="aaaa" ...

---

mais la il faut que je definissse les 8 termes de tableau(i,j)


je voudrais savoir s'il est possible d'utiliser Array pour écrire les 8 textes à la suite ou y a-t-il un autre moyen de le faire ?
merci

Bonsoir

Comment est alimenté l'array de départ?

Bonsoir,

Si bien compris, une solution simple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub test() Dim tableau(1 To 4, 1 To 2) As Variant Dim tableau1 As Variant Dim tableau2 As Variant   tableau1 = Array("aaaa", "bbbb", "cccc", "dddd") tableau2 = Array("eee", "fff", "ggg", "hhh") For i = 1 To 4 tableau(i, 1) = tableau1(i-1) Next For j = 1 To 4 tableau(j, 2) = tableau2(j-1) Next end sub

---

Cordialement

Tu peux aussi faire ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test() Dim tableau1 As Variant, Tableau2, Tablo tableau1 = Array("aaaa", "bbbb", "cccc", "dddd") Tableau2 = Array("eee", "fff", "ggg", "hhh") Tablo = Array(tableau1, Tableau2) For i = 0 To 1 For j = 0 To 3 MsgBox Tablo(i)(j) Next Next End Sub

---

Re,
Bonsoir ouskel'nor
une autre possibilité avec un seul array de 8 termes comme demandé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test2() Dim tableau(1 To 4, 1 To 2) As Variant Dim tableau1 As Variant Dim i As Byte, j as byte   tableau1 = Array("aaaa", "bbbb", "cccc", "dddd", "eee", "fff", "ggg", "hhh")   For i = 1 To 4 For j = 1 To 2 tableau(i, j) = IIf(j = 1, tableau1(i - 1), tableau1(4 + i - 1)) Next Next End sub

---

Cordialement

Hello spitnolan, moimemessssssssss,
(bonsoir Pierre)
Le seul intérêt que je vois à la méthode que je donnais est de pouvoir continuer à utiliser les tableaux sans avoir à modifier la procédure, quelque soit le nombre de tableaux que tu mettes dans Tablo

Code:

---

1 2 3 4 5

For i = 0 To UBound(Tablo) For j = 0 To UBound(Tablo(i)) MsgBox Tablo(i)(j) Next Next

---

Mais ce n'est pas "toujours" très utile ;)
Bonne soirée

BOnsoir,

merci bcp de vos réponses .
mais est-il possible de définir une seule variable tableau avec une seule boucle FOr du type

Code:

---

1 2 3 4 5 6 7

tableau1 = Array("aaaa", "bbbb", "cccc", "dddd", "eee", "fff", "ggg", "hhh") For i = 1 To 4   msgbox tableau(i, 1) msgbox tableau(i, 2) Next

---

ou tableau(i, 1) affiche les nom "aaaa", "bbbb", "cccc", "dddd",
et tableau(i, 1) affiche les noms "eee", "fff", "ggg", "hhh"
je ne sais pas si c'est possible
merci

On peut bricoler mais je ne te le conseille pas car ça ne s'appliquerait qu'à un cas de figure, à moins de compliquer la procédure au delà de deux simples boucles
Et si tu nous disais quel usage tu souhaiterais en faire ?

Bonsoir,

J'ignore totalement le but recherché et la raison pour laquelle tu veux t'y prendre de cette curieuse manière.

Tes explications étant par ailleurs (du moins en ce qui me concerne) insuffisamment précises, j'aurais tendance à te répondre ainsi et à te laisser faire :

Code:

---

1 2 3 4 5 6

Private Sub Command1_Click() tableau = Array("aaaa", "bbbb", "cccc", "dddd", "eee", "fff", "ggg", "hhh") For i = 0 To UBound(tableau) \ 2 MsgBox tableau(i) & vbCrLf & tableau(i + UBound(tableau) \ 2 + 1) Next End Sub

---

par simple curiosité, serait-il possible de savoir comment le faire quand meme?
j'utilise ces noms comme étant les noms à ecrire dans des fichiers excel à des endroit precis..

merci

Bonsoir
Si vous utiliser une feuille excel

Code:

---

1 2 3 4 5

Sub test() ReDim MArray(5) MArray = Range("A1:A5") Range("B1:B5") = MArray End Sub

---

Je suis aussi perplexe que ucfoutu. C'est pourquoi je demandais des précisions sur la façon d'alimenter l'array. Je ne vois pas, personnellement, pourquoi une double boucle pose problème...

Il serait peut-être intéressant que moimemesss... nous explique en français, sans code!, ce qu'il (elle) souhaite réaliser...

Avec [tableau =array("aaaa","bbbb","cccc","dddd")]

Citation:

---

Envoyé par lui-même

je voudrais ecrire une matrice de 2 colonnes et 4lignes donc rajouter 4 noms en plus : "eeee", "ffff", "gggg" , "hhhh")

---

Tu ne sais pas adapter le code d'ucfoutu ?

Code:

---

1 2 3 4 5

tableau =array("aaaa","bbbb","cccc","dddd", "eee", "fff", "ggg", "hhh") For i = 0 to ubound(tableau)/2 cells(i + 1,1) = tableau(i) cells(i + 1,2) = Tableau(i + ubound(tableau)/2+1) next

---

Mais arrange-toi pour que ton tableau ait un nombre d'indices paire :aie:

Re,

Bien qu'aussi perplexe que Pierre Fauconnier...
et en echo à ouskel'n'or :

Citation:

---

Tu ne sais pas adapter le code d'ucfoutu ?

---

ni le mien ????
ma dernière proposition sur le sujet qui est quand même à la base de créer un tableau sur 2 colonnes

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub test3() Dim tableau(0 To 3, 0 To 1) As Variant Dim tableau1 As Variant Dim i As Byte, j As Byte   tableau1 = Array("aaaa", "bbbb", "cccc", "dddd", "eee", "fff", "ggg", "hhh")   '***chargement du tableau pour un tableau de n termes PAIR j = UBound(tableau1) For i = 0 To j tableau(i Mod ((j + 1) / 2), Int((i) / ((j + 1) / 2))) = tableau1(i) Next   '***Renvoi du tableau sur la feuille pour visualisation du résultat For i = 0 To 3 For j = 0 To 1 Cells(i + 1, j + 1) = tableau(i, j) Next Next End sub

---

et à partir de là tu peux même adapter le code d'ouskel'n'or de 22h47...

Cordialement

bonsoir,
merci de vos aides , camarche impec

Citation:

---

Tu ne sais pas adapter le code d'ucfoutu ?

---

ucfoutu avait posté son message a 23h10 pendant que je rédigeais le mien qui est posté à 23h12 soit à 2 minutes d'intervalle
donc j'ai pas vu le message de ucfoutu.... et apres avoir poste mon mesage j'ai pas relu le topic pour voir si de nouveau message étaient postés entre temps...