Créer un tableau contenant un tableau?

Version imprimable

Bonjour,

j'ai créé un type de variable me permettant de stocker toute les informations facilement:
Code:

1 2 3 4 5 6 Public Type transaction nom As String nb_mot_cle As Integer mot_cle() As String lien As String End Type
Aucun soucis pour le nom, nb_mot_cle ou lien par contre il m'est impossible de redimensionner/utiliser mot_cle().
Code:

1 2 3 4 5 6 7 8 Sub correction() Dim transaction_correction() As transaction ReDim Preserve transaction_correction(0).mot_cle(0) End Sub
J'obtiens Erreur d’exécution '9' : l'indice n’appartient pas à la selection.

Ce code marche par contre:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Public Type transaction nom As String nb_mot_cle As Integer mot_cle(100) As String lien As String End Type Sub main() Dim transaction_correction() As transaction ReDim Preserve transaction_correction(0) transaction_correction(0).mot_cle(0) = "salut" End Sub
Seulement j'ai besoin de garder un taille variable pour le tableau mot_cle().
Est-il possible en VBA de créer ce que j'essaye de faire? Je ne fait pas ce qu'il faut pour redimensionner?

Merci de votre aide!

Bonjour,

tu veux redimensionner un tableau qui n'existe pas encore, en préservant ces données ... c'est normal que ça plante

il faut dimensionner le tableau la première fois ... et les fois d'après tu peux Redim Preserve

essaye ça pour bien comprendre (c'est une méthode parmi tant d'autres), j'ai aussi supprimé des parenthèses qui n'avaient pas lieu d'être

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
Public Type transaction
    nom As String
    nb_mot_cle As Integer
    mot_cle() As String
    lien As String
End Type
 
 
Sub correction()
 
 Dim transaction_correction As transaction
 Dim Existe As Boolean
 
 With transaction_correction
    For i = 1 To 2
        If Not Existe Then
            ReDim .mot_cle(0)
            .mot_cle(0) = "toto"
            Existe = True
            MsgBox .mot_cle(UBound(.mot_cle))
        Else
            ReDim Preserve .mot_cle(UBound(.mot_cle) + 1)
            .mot_cle(UBound(.mot_cle)) = "nouveau toto"
            MsgBox .mot_cle(UBound(.mot_cle))
        End If
    Next i
 End With
 
End Sub

28/05/2015, 12h09
vinc_bilb

Bonjour,

Sauf erreur, comme

Code:

Dim mot_cle() As String

, vous ne pouvez pas l'utiliser tel quel pour le redimensionnement ....
Voir également la syntaxe du Redim par l'aide .... votre code me semble erroné

Exemple

Code:

ReDim LotIDAR(0 To WshTotRec, 0 To 10)

Attention, avec PRESERVE, le ReDim ne marche que sur la dimension la plus élevée du tableau

J'ai fini par trouver un solution simple: le faire en 2 fois

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Type transaction
    nom As String
    nb_mot_cle As Integer
    mot_cle() As String
    lien As String
End Type
 
Sub main()
 
 Dim transaction_correction() As transaction
 
 ReDim transaction_correction(0)
 ReDim transaction_correction(0).mot_cle(0)
End Sub

De cette façons ça marche.

Merci pour votre aide!