Discussion :

[horemheb]

Bonjour à tous,
Je recherche quelques informations sur les tableaux (au sens informatique VB , pas au sens tableau Excel).

Je gère plusieurs tableaux de 1000 éléments, actuellement j'utilise une déclaration qui ressemble à :

Code :

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

1
2
Dim Tab1(1000) as Single, Tab2(1000) as Single, Tab3(1000) as Single
. . .

Peut-on définir (créer) un type générique pour ces tableaux sous la forme :

Code :

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

1
2
3
Type Tableau(1000) as Single
Dim Tab1 as Tableau, Tab2 as Tableau, Tab3 as Tableau
. . .

Apparemment l'instruction Type ne peut pas servir directement à ça mais pour une structure contenant elle-même plusieurs éléments de types différents.

Pourrais-je ensuite m'en servir comme type entrant dans une déclaration de fonction :

Code :

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

1
2
Function MaFonction(ByRef LeTab as Tableau) as Single
. . .

Merci

[Daniel.C]

Bonjour,

Je ne vois pas ce que tu cherches, à part utiliser "Type" à tout prix. Tu peux faire :

Code :

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

1
2
3
4
5
6
7
8
Type Tableaux
    Tab1(1000) As Single
    Tab2(1000) As Single
End Type
Sub test()
Dim Tabl As Tableaux
    Tabl.Tab1(1) = 1
End Sub

ou j'ai mal compris...

[SfJ5Rpw8]

Bonjour,

je suis un peu comme Daniel je vois pas ce que tu veux faire avec type ... si c'est pour pouvoir modifier le nombre d'éléments des tableaux de façon plus aisée :

Code :

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

1
2
3
4
5
6
7
8
9
Const NB_INFOS = 1000
 
Dim Tab1(NB_INFOS) As Single
Dim Tab2(NB_INFOS) As Single
Dim Tab3(NB_INFOS) As Single
 
MsgBox "Tab1 : " & UBound(Tab1) & vbCrLf & _
       "Tab2 : " & UBound(Tab2) & vbCrLf & _
       "Tab3 : " & UBound(Tab3)

[horemheb]

Merci pour vos réponses, je vais essayer de clarifier mon attente.
Mon souci se porte à deux niveaux.

Le premier est de créer un nouveau type de données. Je ne cherche pas à utiliser "Type" à tout prix. L'utilisation de "Type" impose des notations telles que l'indique Daniel c'est à dire tabl.tab1(i), tabl.tab2(i) . . . et a pour but de créer des structures non homogènes, ce qui n'est pas du tout ce que je cherche.

Je souhaiterais créer une structure de tableau à 1000 entrées (par exemple), ce qui permettrait ensuite de définir des variables-tableaux selon ce type, ça se pratiquait en Pascal (il y a très longtemps), peut-être aussi en C. Est-ce que c'est possible avec VBA ?
Ca rendrait l'écriture que j'utilise actuellement plus "élégante" :

Code :

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

1
2
3
Dim Tab1(1000) As Single, Tab2(1000) As Single, Tab3(1000) As Single
deviendrait
Dim Tab1 As Tableau, Tab2 As Tableau, Tab3 As Tableau

Plutôt que de déclarer 3 variables ayant des structures identiques, je déclare une structure et j'y associe ensuite les 3 variables. Je reconnais que la notion d'"élégance" est très subjective.

Si je laisse tomber cet aspect, je suis alors confronté à un autre problème qui est de passer un tel tableau en référence à une fonction. Quel type vais-je indiquer en entrée dans la définition de ma fonction?

Code :

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

1
2
Function MaFonction(ByRef LeTab As ?????) As Single
. . .

En espérant être plus clair cette fois-ci.

[Daniel.C]

Utilise un tableau à deux dimensions :

Code :

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

1
2
3
4
Dim Tabl(1000, 5) As Integer
Tabl(0, 0) = 1
Tabl(0, 1) = 2
Tabl(1000, 5) = 3

[horemheb]

Ok Daniel, mais ça ne répond ni à la question : peut-on créer une nouvelle structure de données (autrement que par "Type") ? ni à : comment passer un tableau en référence dans une déclaration de fonction ?