Discussion :

[cyber_N]

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 :

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

1
2
3
4
5
 
Public Type T_Tab
    tab()   As TroisVal
    index   As Integer
End Type

Pour information :

Code :

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

1
2
3
4
5
Public Type TroisVal
    v1   As Integer
    v2   As Integer
    v3   As Integer
End Type

Merci encore.
Sébastien.

[SilkyRoad]

bonsoir

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

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

[cyber_N]

Merci Michel,

C'est bien ceci que je souhaitais.

Le fait que je fasse :

Code :

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

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 :

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

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.

[cyber_N]

Bonjour,

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

Il ralle quand il vois ca :

Code :

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

xTab(2, i).Tableau = Tv

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

Sébastien.

[SilkyRoad]

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

[cyber_N]

Bonjour Michel,
Voilà comment je procède:

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