Discussion :

[Nyck0las]

Bonjour,

j'aimerais créer un ensemble de variables indentées correspondant à des listes.

Pour être plus clair je voudrais créer des variables A1, A2, ... avec

Code :

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

1
2
3
dim A1()
dim A2()
...

et pouvoir utiliser ensuite des boucles en utilisant de la concaténation pour pouvoir appeler chacune de mes variables de la même façon (du type A.i ou A&i ou ...)

Code :

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

1
2
3
4
for i=1 to 30
redim preserve A_i (ubound(A_i)+1)
A_i(ubound(A_i))="boo"
next

mais je sais pas trop comment faire ...

[ucfoutu]

Bonjour,

Tu ne peux te référer à une variable en utilisant une chaine de caractères.

VB ne garde pas en mémoire interne la chaîne de caractères correspondant à une variable, mais une adresse-mémoire (et tu n'auras jamais accès, par une chaîne de caractères, à cette adresse mémoire).

Tu vas vite comprendre : rien n'interdit, sous VB, d'attribuer un nom identique pour deux (ou plus) variables différentes, placées dans des procédures distinctes. Prenons alors l'exemple d'une variable toto dans la procédure proc1 et d'une vraiable toto dans la procédure proc2. A laquelle des deux pourrait bien se référer une variable que tu chercherais à pointer à l'aide de la chaîne de caractères "toto" ?

Il te faudrait, pour y parvenir, constituer ta propre collection de correspondances, ce qui rendrait ton application assez lourde ...

[Nyck0las]

çà veut dire que je ne peux pas ??

et si je définissais les variables Ai au sein d'un tableau ?

du style

Code :

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

dim A(30)

et chacune des varialbles Ai correspondrait à une cellule du tableau A
je pourrais y faire référence en utilisant

Code :

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

A(i)

j'ai essayé mais j'ai des problèmes après utiliser les A(i) eux-mêmes commes des listes en utilisant dim et redim par ex ou pour faire référence aux éléments des A(i) : A(i)(1), A(i)(2) ???

[Nyck0las]

çà revient à poser la question : peut-on faire des tableaux de tableaux ???

[ucfoutu]

cela "revient" surtout à deux seuls mots :

- collection
- lourdeur ajoutée

Tu fais ensuite comme tu l'entends.

La réflexion est depuis longtemps terminée, en ce qui me concerne, dans ce domaine, mais rien ne t'interdit de tenter, comme tu l'entends, d'aller plus loin...

Edit : si, nonobstant mon invite clarement faite à abandonner un tel cheminement, tu veux faire des "randonnées" : intéresse-toi alors au mot réservé VarPtr de VB (il est bel et bien présent, quoique non exposé)...

Bonne chance dans cet exercice et cette randonnée, ami...

[ouskel'n'or]

Les tableaux de tableaux... si un exemple peut t'inspirer, test ça

Code :

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

1
2
3
4
5
6
7
Sub test1()
Dim Montab, valeur1, valeur2, valeur3
valeur1 = Array(6, 7, 8, 9, 10)
valeur2 = Array("un", "deux", "trois", "quatre", "cinq")
valeur3 = Array(11, 12, 13, 14, 15)
Montab = Array(valeur1, valeur2, valeur3)
MsgBox Montab(1)(4)

Pour mieux comprendre, teste ça

Code :

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

1
2
3
4
5
6
7
8
Sub test2()
Dim Montab, valeur1, valeur2, valeur3
valeur1 = Array(0, 1, 2, 3, 4)
valeur2 = Array(1, 2, 3, 4, 5)
valeur3 = Array("un", "deux", "trois", "quatre", "cinq")
Montab = Array(valeur1, valeur2, valeur3)
MsgBox Montab(1)(3)
End Sub

Les tableaux commencent sur l'indice 0

[random]

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
 
Function test() As Boolean
Dim tableau() As Variant
'30 est le nombre de tableaux à gérer
' initialisé à huit lignes
'la première dimension de tableau contient l'indice du tableau
ReDim tableau(1 To 30, 1 To 8)
'on remplit le tableau
Dim ligne As Long
Dim colonne As Long
For ligne = 1 To 30
For colonne = 1 To 8
tableau(ligne, colonne) = ligne * colonne
Next colonne
Next ligne
'on ajoute une colonne pour les 30 tableaux
ligne = UBound(tableau, 2) + 1
ReDim Preserve tableau(1 To 30, 1 To ligne)
' on va y loger "poo"
For ligne = 1 To 30
tableau(ligne, UBound(tableau, 2)) = "poo"
Next ligne
'on vérifie le résultat
MsgBox (tableau(5, 9))
test = True
End Function

[Nyck0las]

c'est pas bete cette idée de jouer sur la longueur des colonnes ...

[random]

heu merci, je n'aurais pas l'outrecuidance de dire qi'il était bête de ne pas y penser.

[Nyck0las]

par contre je ne comprends pas un truc
j'ai fait quelque chose comme ce que tu as indiqué

Code :

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

1
2
3
4
Dim lgN
lgN = UBound(TI, 1) + 1
 
ReDim Preserve TI(lgN, 6)

mais j'ai une erreur de type 9 : l'indice n'appartient pas à la sélection en surligant la ligen redim et je ne comprends pas pour quoi

[ouskel'n'or]

On ne peut pas modifier la première dimension d'un tableau, seulement la seconde.

Code :

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

1
2
3
4
Dim lgN
lgN = UBound(TI, 1) + 1
 
ReDim Preserve TI(?, lgN)

ou "?" est la valeur déclarée en premier lieu, dans le premier Redim.

[random]

On ne peut pas modifier la première dimension d'un tableau, seulement la seconde.

plus exactement seulement la dernière (qui peut aussi être la première).