Discussion :

[moimemessssssssss]

Bonjour

le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

Bonsoir

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

[spitnolan]

Bonsoir,

Si bien compris, une solution simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

Tu peux aussi faire ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[spitnolan]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[moimemessssssssss]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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 ?

[ucfoutu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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