[VBA Excel] Un tableau dynamique dans un type utilisateur?

Bonjour,

Je souhaiterais savoir si, dans VBA pour Excel,
Il est possible de créer un tableau dynamique dans un type défini par
l'utilisateur (dans un module simple par exemple), par exemple:

Code:

---

1 2 3 4 5

Public Type T_Tab tab() As TroisVal index As Integer End Type

---

Pour information :

Code:

---

1 2 3 4 5

Public Type TroisVal v1 As Integer v2 As Integer v3 As Integer End Type

---

Merci encore.
Sébastien.
:)

bonsoir

je ne suis pas sur d'avoir bien compris mais tu peux essayer cette syntaxe

Code:

---

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 36 37

Option Explicit Option Base 1   Public Type TroisVal v1 As Integer v2 As Integer v3 As Integer End Type   Public Type T_Tab Tableau As TroisVal index As Integer End Type     Sub Test() Dim xTab(1 To 2, 1 To 5) As T_Tab Dim Tv As TroisVal Dim i As Integer   For i = 1 To 5 'remplissage tableau Randomize Tv.v1 = Int((50 * Rnd) + 1) Tv.v2 = Int((50 * Rnd) + 1) Tv.v3 = Int((50 * Rnd) + 1)   xTab(1, i).index = i xTab(2, i).Tableau = Tv Next i   'controle le résultat du 3eme index Tv = xTab(2, 3).Tableau MsgBox "Index : " & xTab(1, 3).index & _ vbCrLf & "v1 : " & Tv.v1 & _ vbCrLf & "v2 : " & Tv.v2 & _ vbCrLf & "v3 : " & Tv.v3 End Sub

---

bonne soiree
michel

Merci Michel,

C'est bien ceci que je souhaitais.

Le fait que je fasse :

Code:

---

1 2 3 4

Public Type T_Tab Tableau() As TroisVal ' <-- avec parenthèses index As Integer End Type

---

Ca ne lui plaisait pas!

J'ai tenté de laisser dans la définition de la structure T_Tab, l'attribut Tableau sans parenthèses et ais fait:

Code:

---

1 2	ReDim mon_tab(2) as T_Tab ReDim mon_tab(0).Tableau(2) as TroisVal ' <-- ça, il aime pas du tout !!

---

Qu'en penses-tu ??
Sinon, je prend note pour ton post et merci encore !!
Sébastien.
:)

Bonjour,

J'ai testé ce que tu as fait Michel,
Ca ne marche pas chez moi!

Il ralle quand il vois ca :

Code:

---

xTab(2, i).Tableau = Tv

---

Donc quand on passe un pointeur (Tableau n'en est pas un!)

Sébastien.
:cry:

rebonsoir

Effectivement le terme Tableau n'etait pas tres judicieux de ma part, mais ça fonctionne tout de meme chez moi (testé avec Excel2002)

tu as utilisé la macro tel quel ? tu as fais des modifications ?
quel est le message d'erreur ?

j'ai peut etre mal compris ta demande initiale...


bonne soiree
michel

Bonjour Michel,
Voilà comment je procède:

Code:

---

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

' DEFINITION dans un module simple   Public Type T_Index x As Integer y As Integer fait As Integer End Type   Public Type T_Tab tab As T_Index index As Integer col As Integer End Type   Public wsBDLOC_tab_struct_plus() As T_Tab Public wsBDLOC_tab_struct_plus_i As Integer   ' CODE dans une feuille   Public Function InsererIndex(....) ReDim index(0) As T_Index index(0).x = x index(0).y = y index(0).fait = fait   If (wsBDLOC_tab_struct_plus_i <= 0) Then ReDim wsBDLOC_tab_struct_plus(0) As T_Tab Dim table As T_Tab table.col = col_BDLOC table.index = 0 table.tab = index ' <-------- ça, il aime PAS !! End If   End Function

---

Il me dit dans une MSG BOX :
Seuls les types définis par l'utilisateur et qui sont définis dans les modules d'objets publics peuvent être convertis depuis ou vers un variant, ou passés à des fonctions à liaison tardive.

Merci encore!
Sébastien.

Re,

Cela résoudrait mon problème si je savais comment manipuler COMPLETEMENT un tableau 2D sans qu'il plante!

lorsque l'on fait, AVEC L'OPTION PRESERVE :

Code:

---

ReDim Preserve tab(x,y) as XXXXX

---

Il plante! Il n'accepte pas de pouvoir redimensionner (avec preserve) le 'x' !!!! (on ne peux que redimensionner le 'y') !!

Sais - tu comment procéder ??
Sébastien.

rebonsoir

sauf erreur de ma part , on ne peut redéfinir que la derniere dimension d'un tableau



pour la ligne qui bloque, tu peux essayer

Code:

---

table.tab = index(0)

---

bonne soirée
michel