Discussion :

[gecko404]

Bonjour,

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

Code :

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

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 :

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

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 :

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

[joe.levrai]

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 :

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

[vinc_bilb]

Bonjour,

Sauf erreur, comme

Code :

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

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 :

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

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

[gecko404]

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

Code :

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

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!