Initialisation d'un tableau sans utilisation de boucle

**dude91820** · 19/04/2016, 12h14

Bonjour à tous,

Alors voilà je cherche un moyen d'initialiser une matrice avec la function array de la manière suivante :

Code :

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

1
2
3
4
5
6
Dim MyArray() as variant
 
MyArray= Array(Entier11,Chaine12,Num13;
                      Entier21,Chaine22,Num23;
                      ...
                      EntierN1,ChaineN2,NumN3)

Les variables sont trop spécifiques pour pouvoir être remplies de manière automatique dans une boucle, mon but est de l'initialiser en une opération un peu comme sur des langages comme Python.

Je sais que la méthode suivante fonctionne MyList = Array(Nom1,Nom2,Nom3) mais je ne parviens pas à trouver la syntaxe pour un tableau à plusieurs dimensions.

J’espère avoir pu être suffisamment claire, je vous remercie par avance de votre aide.

Cordialement Dude,

**antonysansh** · 19/04/2016, 12h56

Je ne pense pas qu'un Array puisse être multidimensionnel.

Tu devrais trouver ton bonheur dans ce tuto : Utiliser les variables tableaux en VBA Excel

Sinon si les données à mettre dans le tableau sont dans une plage d'une feuille, tu peux utiliser ça :

Code :

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

1
2
3
4
5
6
7
Sub Exemple()
    Dim rg As Range, t()
        Set rg = Range("A1:C3")
        t = rg
fin:
    Set rg = Nothing
End Sub

**joe.levrai** · 19/04/2016, 14h10

Bonjour

Système D !

stockage de arrays dans un array

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub SystemeD()
Dim Tabl()
Dim Dim1 As Long
Dim Dim2 As Long
Tabl = Array( _
             Array(1, 2, "toto", #1/1/2016#), _
             Array("dim 2", 4, 6))
 
For Dimension1 = LBound(Tabl) To UBound(Tabl)
    For Dim2 = LBound(Tabl(Dim1)) To UBound(Tabl(Dim1))
        Debug.Print Tabl(Dim1)(Dim2)
    Next Dim2
Next Dim1
 
End Sub

**Theze** · 19/04/2016, 16h13

Bonjour,

Puisque tu veux utiliser un ou des Array(), c'est que tu en connais les bornes. Dans ce cas, tu peux utiliser un tableau à deux dimensions :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Sub Test()
 
    Dim Tbl()
 
    ReDim Tbl(1 To 3, 1 To 5)
 
    '1ère ligne du tableau
    Tbl(1, 1) = "Nom 1"
    Tbl(1, 2) = "Prénom 1"
    Tbl(1, 3) = 10
    Tbl(1, 4) = 12
    Tbl(1, 5) = 14
 
    '2ème ligne
    Tbl(2, 1) = "Nom 2"
    Tbl(2, 2) = "Prénom 2"
    Tbl(2, 3) = 16
    Tbl(2, 4) = 18
    Tbl(2, 5) = 20
 
    'et 3ème ligne
    Tbl(3, 1) = "Nom 3"
    Tbl(3, 2) = "Prénom 3"
    Tbl(3, 3) = 22
    Tbl(3, 4) = 24
    Tbl(3, 5) = 26
 
    'dans la feuille de A1 à E3 pour se représenter plus facilement à quoi resemble le tableau
    Range(Cells(1, 1), Cells(UBound(Tbl, 1), UBound(Tbl, 2))) = Tbl
 
End Sub

**patricktoulon** · 19/04/2016, 17h27

Bonjour

Code :

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

1
2
3
4
5
6
7
Sub test3()
Dim tablo(2)
tablo(0) = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
tablo(1) = Array(10, 20, 30, 40, 50, 60, 70, 80, 90)
MsgBox tablo(0)(2)
MsgBox tablo(1)(2)
End Sub

**joe.levrai** · 19/04/2016, 17h34

ah non Patrick !!

t'es malade aujourd'hui ? Je m'inquiète

t'as utilisé deux lignes de codes là où j'en utilise une que j'ai juste aéré pour un confort de lecture.

c'est moi qui pond les merdes et toi qui fait les miracles normalement

qu'est-ce qu'il se passe ??

Ps : je te vois venir, ne pense même pas à regrouper tes deux lignes avec un ":"

**Marc-L** · 19/04/2016, 17h44

Bonjour, bonjour !

Envoyé par dude91820

Dim MyArray() as variant

MyArray= Array(Entier11,Chaine12,Num13;
Entier21,Chaine22,Num23; ...

En reprenant le B-A-BA d'Excel pour écrire une matrice : MyArray = [{1,"A",11;2,"B",22;3,"C",33}] …

En profiter au passage pour consulter l'aide VBA interne de la méthode Evaluate !

Voilà, voilà !

______________________________________________________________________________________________________

Merci de cliquer sur

pour chaque message ayant aidé puis sur

pour clore cette discussion …

______________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …

**patricktoulon** · 19/04/2016, 18h21

re
cela me rappelle une discussion hein!! marc hihihi création d'un tableau en string le point virgule (sacré point virgule )

dans ta face joe !!!!!

nan!! j'ai séparé pour une accessibilité plus facile dans le code
et peut être même modifier le tbl partout dans un module en public

**Marc-L** · 19/04/2016, 19h27

Envoyé par patricktoulon

cela me rappelle une discussion hein!! marc hihihi création d'un tableau en string le point virgule (sacré point virgule)

Justement j'y pensais ! Si tu retrouves ta discussion, met un lien vers le début de mon intervention
car cela pourrait aider le dude91820 et ses variables !