Discussion :

[Aurore24]

Bonjour,

J'aimerais créer un tableau (à deux dimensions) contenant des tableaux (à une dimensions) dans la première colonne, puis du texte dans les autres colonnes. Je déclare donc un tableau de type variant, qui devrait pouvoir contenir tous type données ?

Voici le code que j'utilise :

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
Sub tableauescalier()
 
Dim MonTableau() As Variant
Dim MonVecteur(1 To 3) As Variant
 
MonVecteur(1) = "a"
MonVecteur(2) = "b"
MonVecteur(3) = "c"
'Range(Cells(1, 1), Cells(1, UBound(MonVecteur))) = MonVecteur
 
 
For i = 1 To 5
        MonTableau(i, 1) = MonVecteur
Next
 
For i = 1 To 5
    For j = 2 To 3
        MonTableau(i, j) = "du texte"
    Next
Next
 
'Range(Cells(1, 1), Cells(UBound(MonTableau, 1), UBound(MonTableau, 2))) = MonTableau
 
End Sub

Mais il existe une erreur à la compilation, au niveau de la ligne MonTableau(i, j) = MonVecteur
Quelqu'un aurait-il une idée ?

En vous remerciant,

Aurore

[ZebreLoup]

Sous 2003, je n'ai pas d'erreur à la compilation mais à l'éxecution. Assez logiquement d'ailleurs car tu n'as pas dimensionné MonTableau.

[Aurore24]

Bonjour,

Merci de ta réponse.
Etant novice, je ne fais pas toujours la différence entre compilation et exécution...

De façon intentionnelle, je n'ai pas dimensionné MonTableau, car cet exemple est destiné à être appliqué dans une macro plus complexe dans laquelle je ne connaitrait pas à l'avance la taille du tableau.
Ne puis-je passer outre ?

Aurore

[Theze]

Bonjour,

Je ne suis pas sûr que tu puisses incorporer un tableau dans un autre tableau ?
Voir plutôt avec un tableau à 3 dimensions ?

Hervé.

[ZebreLoup]

Si on peut tout à fait incorporé un tableau dans un autre. Son code marche correctement en faisant

Code :

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

Dim MonTableau(1 To 5, 1 To 3) As Variant

Si tu ne connais pas à l'avance la taille du tableau, tu as 2 possibilités :

• Soit tu utilises des Redim Preserve, mais ça ne marche que pour la dernière dimension quand il y en a plusieurs.
• Soit tu utilises une collection avec sa méthode Add.

Ça dépend du contexte.

[Aurore24]

Bonjour,

Le problème est que je ne connais pas à l'avance la taille du vecteur que je veux incorporer dans mon tableau. Il faudrait donc que je crée un tableau dont je ne connais pas à l'avance la dimension, et je pense que cela n'est pas possible non plus.

Aurore

Je vais essayer avec Redim Preserve, et reviendrai vers vous au besoin.

Merci à vous deux, et bonne année !

[Theze]

Re,

ZebreLoup, comment tu récupères les valeurs de la 1 ère dimension du tableau "MonTableau" (valeurs du tableau "MonVecteur") ?

Hervé.

[ZebreLoup]

Un petit code illustratif. Pour montrer que c'est possible. Il ne fait rien d'intéressant sinon. Éventuellement, précise ton besoin pour quelque chose de plus adapté.

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
33
34
35
Public Sub TableauEscalier()
    Dim MonTableau As Variant
    Dim MonVecteur As Variant
 
    Dim iTab, iVect As Integer
    Dim nTab, nVect As Integer
 
    ReDim MonTableau(1 To 3, 1 To 1)
 
    'Je défini au hasard une taille pour le tableau, mais elle peut être fonction de ta feuille ou autre
    nTab = Int(10 * Rnd)
    If nTab = 0 Then nTab = 1
 
    iTab = 1
 
    Do While iTab <= nTab
        ReDim Preserve MonTableau(1 To 3, 1 To iTab)
 
        'Je définis au hasard une taille pour le vecteur qui sera le premier element de cette ligne du tableau
        nVect = Int(10 * Rnd)
        If nVect = 0 Then nVect = 1
 
        ReDim MonVecteur(1 To nVect)
 
        For iVect = 1 To nVect
            MonVecteur(iVect) = "contenu du vecteur " & iVect
        Next iVect
 
        MonTableau(1, iTab) = MonVecteur
        MonTableau(2, iTab) = "deuxième colonne de la ligne " & iTab
        MonTableau(3, iTab) = "troisième colonne de la ligne " & iTab
 
        iTab = iTab + 1
    Loop
End Sub

@Theze : Imaginons dans mon exemple qu'au final nTab vaut 7, si pour mon 5ème élément, je veux le 3ème élément du vecteur (en supposant nVect >= 3 pour cet élément), je fais tout simplement

Code :

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

MonTableau(1, 5)(3)

[Theze]

Re,

ZebreLoup, nickel, je ne connaissais pas cette façon !!!
J'étais entrain de me creuser la tête avec Split :o((
Merci.

Hervé.