Définition de variables

Version imprimable

05/12/2007, 11h42
Nyck0las

Définition de variables
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:

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:

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 ... :roll:
05/12/2007, 11h52
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 ...
05/12/2007, 12h03
Nyck0las

çà veut dire que je ne peux pas ??

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

du style

Code:

dim A(30)

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

Code:

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) ???
05/12/2007, 12h04
Nyck0las

çà revient à poser la question : peut-on faire des tableaux de tableaux ???
05/12/2007, 12h52
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...

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

Code:

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:

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

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

06/12/2007, 11h37
Nyck0las

c'est pas bete cette idée de jouer sur la longueur des colonnes ...
06/12/2007, 13h29
random

heu merci, je n'aurais pas l'outrecuidance de dire qi'il était bête de ne pas y penser.
06/12/2007, 15h26
Nyck0las
par contre je ne comprends pas un truc
j'ai fait quelque chose comme ce que tu as indiqué
Code:

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 :roll:
06/12/2007, 16h58
ouskel'n'or
On ne peut pas modifier la première dimension d'un tableau, seulement la seconde.
Code:

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.
06/12/2007, 17h11
random

Citation:

Envoyé par ouskel'n'or

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