Gestion du type tableau (au sens de VB)

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:

---

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:

---

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:

---

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

---

Merci

Bonjour,

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

Code:

---

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...

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:

---

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)

---

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:

---

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:

---

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

---

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

Utilise un tableau à deux dimensions :

Code:

---

1 2 3 4

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

---

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 ?

Bonjour,

Tu peux utiliser "ReDim" pour redimensionner un tableau. A part ça je ne vois pas comment faire, mais je ne connais ni Pascal, ni C. Pour passer le tableau à une fonction. Un exemple de passage de tableau en paramètre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test() Dim Tabl(1000, 6) As Integer, D1 As Integer, D2 As Integer, Resultat As Integer D1 = 0 D2 = 6 Tabl(D1, D2) = 1 Resultat = maFonction(Tabl, D2) Debug.Print Resultat * 3 End Sub   Function maFonction(ByVal Table As Variant, ByVal maDim As Integer) As Integer maFonction = Table(0, maDim) * 2 Debug.Print maFonction End Function

---

Merci de t'être intéressé à mon problème

Il semblerait donc qu'il n'existe pas d'outil de création de structure de données sous VBA hors l'instruction "Type" qui correspond à un "Record" ou un "Enregistrement" au sens d'Access. Dommage !!!

Concernant le passage d'un tableau par référence à une sub ou une fonction, j'ai finalement trouvé la réponse dans un tuto de SilkyRoad http://silkyroad.developpez.com/vba/tableaux/
Il ne faut pas dimensionner le tableau et utiliser LBound et UBound. Par exemple, pour calculer la valeur moyenne d'un tableau, ça donne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Function Moyenne(ByRef Tableau() As Single) As Single Dim I As Integer Dim Cumul As Single   Cumul = 0 For I = LBound(Tableau) To UBound(Tableau) Cumul = Cumul + Tableau(I) Next I   Moyenne = Cumul / UBound(Tableau)   End Function

---

La valeur de la moyenne se récupère alors facilement par

Code:

---

MaMoyenne = Moyenne(MonTableau)

---

Comme toujours une réponse à un problème amène de nouvelles questions.
Comment renvoyer un tableau comme valeur de sortie d'une fonction ?
Ce qui permettrait d'écrire une instruction comme

Code:

---

Tab_Trié = Classement(Tab_Pas_Trié)

---

à partir d'une fonction qui assurerait le classement du tableau passé en argument.
Je n'en ai pas besoin donc je m'arrête là.

Merci de m'avoir lu
Horemheb

Salut,

Concernant les Tableaux, il est possible de renvoyer un Variant même si c'est un tableau en retour. C'est la méthode utilisé par Microsoft pour les fonctions Excel.

Un exemple simple avec Tableau en retour:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Option Explicit   Function MaFunc() As Single() ReDim Temp(1 To 10) As Single Temp(1) = 5 MaFunc = Temp End Function Function MaFunc2() 'As Variant lorsque le type du retour n'est pas spécifié ReDim Temp(1 To 10) As Single Temp(2) = 5 MaFunc2 = Temp End Function   Sub TestFuncs() Dim a() As Single a = MaFunc ' a(1) = 5, a(2) = 0 a = MaFunc2 ' a(1) = 0, a(2) = 5 End Sub

---

Au niveau des types:
Il n'est pas possible d'écrire de code dans un Type si c'est cela la question. Dans ce cas, il existe les Objects.