[XL-2003] Boucler sur les variables tableaux [Résolu]

[MarcelG]

Bonsoir le Forum,

J'ai beau lire, peut-être mal ou trop rapidement, les tutoriels de Michel et Didier,
je n'arrive pas à boucler sur les variables tableaux que j'ai déclarés dans mon code.

Exemple basique qui ressort en erreur

Si 2 tableaux Tableau1 et Tableau2

Code :

1
2
3
For I = 1 To 2
     Debug.Print Ubound(Tableau & i)
Next I

Par avance, je vous remercie

[mercatog]

Bonsoir Marcel
C'est comme si tu mettais

Code :

Dim y1 as integer

On ne peut pas concaténer la lettre y et le chiffre 1 pour appeler la variable y1

[defluc]

Je ne vois pas la déclaration de "Tableau".
C'est une feuille, une Array, une chaine de caractère constituant le nom d'une feuille ou d'une Array ?

[gFZT82]

Bonsoir,

Une bidouille avec une collection

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Test()
Dim Tableau1()
Dim Tableau2()
Dim Tablo As New Collection
    Tableau1 = Range("A1:B10")
    Tableau2 = Range("D1:H20")
        Tablo.Add Item:=Tableau1
        Tablo.Add Item:=Tableau2
        For i = 1 To 2
            MsgBox "Tableau" & i & "; Dimension 1 : " & UBound(Tablo(i), 1) & Chr(10) & _
            "Tableau" & i & "; Dimension 2 : " & UBound(Tablo(i), 2)
        Next i
End Sub

Cordialement.

[MarcelG]

Bonjour le Forum,

Merci à vous trois pour vos réponses.

Mercatog

En effet, un tableau est avant tout un type de variable.
Je croyais utiliser la même méthode que celle concernant par exemple les contrôles dans un code Userform (Textbox1 peut se coder également Controls(« Textbox 1»), ce qui permet une concaténation)

Defluc

Ici, j’ai indiqué, dans cet extrait de code, la propriété Ubound. Dans mon esprit, et sachant que j’utilise la version 2003 d’Office, le terme « Tableau » s’affecte donc à une variable VBA Array.

Gfzt82

Bravo pour cette astuce! Elle permet une boucle sur les items de la collection, et donc sur les variables Tableau.
(Je faisais allusion au code proposé dans la discussion ouverte par l’ami potemkine.)


Bonne journée à tous.

[Ormonth]

Bonsoir,

Tant qu'à faire de travailler sur des tableaux, y rester

Donc utiliser un tableau de tableaux et la structure For Each faites pour...

Envoyé par Aide VBA

For Each...Next, instruction

Répète un groupe d'instructions pour chaque élément d'un tableau ou d'une collection.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Soluce()
Dim varElement As Variant
Dim varElement2 As Variant
Dim tboMonTableauOne
Dim tboMonTableauTwo
Dim tboLeTout As Variant
 
tboMonTableauOne = Range("A1:B10")
tboMonTableauTwo = Range("E1:F12")
 
tboLeTout = Array(tboMonTableauOne, tboMonTableauTwo)
 
For Each varElement In tboLeTout
    For Each varElement2 In varElement
        Debug.Print varElement2
    Next varElement2
Next varElement
 
End Sub

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[MarcelG]

Bonjour Didier,

Mes excuses pour cette réponse tardive.

En effet, l'imbrication de Tableaux semble aussi intéressante. Je n'y avais d'ailleurs jamais pensé!

Merci donc. Et merci aussi pour les tutoriels (notamment ceux concernant les variables Tableau et les Dates).