pointeur de tableau

hello voici mon problème
en résumé j'ai

dim VAR as string
dim TblVar(2,2) as string

dans TblVar(1,0) j'ai la chaine "VAR"
dans TblVar(0,1) j'ai une valeur type string ex "coucou"

je souhaiterais que ma variable VAR prennent la valeur "coucou" par identification à la chaine
du tableau(1,0) qui contient "VAR" le nom de la variable a affecter.

en gros la première dimension de mon tableau contient le nom de la variable dont je dois
affecter la deuxième dimension

a la fin je veut donc que VAR contiennent "coucou"

merci (philochon@voila.fr)

philochon

Salut,

je cros que tu n'arriveras pas à faire ce que tu souhaites à l'aide des tableaux, tu peux peu être t'orienter vers les Objets Collection ou Dictionnary

Je crois qu ils sont capables de faire ce que tu souhaites

@+: Ju£i€n
Pensez: Réponse acceptée

Malgrès ce type de question récurente (en moyenne 1/mois) je n'ai toujours pas compris l'interet d'une telle méthode.

Puisque tu connais le nom de la variable à affecter et que de toute façon une fois le code fini, tu ne peux pas rajouter de variables dans ton programme, pourquoi ne pas faire directement VAR="coucou".


---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #

Bonjour,
A mon avis ce type de problème se pose quand on ne veux pas, ou ne veux pas, aborder la gestion des données avec les outils de traitement de bases de données.

Il y a confusion entre les données de traitement et le traitement des données (à méditer)


Jcbé[^]

salut,

pourquoi je ne fait pas directement VAR = "coucou" c'est par ce que j'ai 500 variables à l'images de VAR qui n'ont pas le meme nom ni d'index particulier et que c'est ultra moche de faire du genre :

(
if tblvar(1,0) = "VAR" then
VAR = tabvar(0,1)
endif
) * 500 !!!

je voudrais en quelques lignes que le contenu de tblvar(1,0) qui est "VAR" soit identifier en tant que la variable déclarée VAR. et ceci pour toutes les valeurs comprises dans la premiere dimension du tableau ex :

contenu de tblvar :
0                        1
"VAR"            "coucou"
"VIR"              "azerty"
 "VOR"            "uiop"

je veux que automatiquement les variables correspondantes VAR, VIR et VOR
prennent respectivement les valeurs 'coucou', 'azerty' et 'uiop' ceci sans utiliser des fonctions
de comparaison classiques if then, select case, for i, ...

en gros il faut dire à vb que le contenu de la première dimension de "tblvar" n'est pas des valeurs mais des variables

merci pour vos réponses

Excuses-moi, mais pourrais-tu nous dire pourquoi tu as besoin de 500 variables distinctes dans un programme ? et pourquoi l'utilisation d'un tableau ne te conviens pas ?


Jcbé[^]

Salut
En VB6, il n'est pas possible de s'adresser directement aux variables par leur nom dynamique.
Les noms des variables ne sont là que pour le programmeur. Le programme, lui, ne raisonne qu'en adresse mémoire.
La seule méthode consiste à donner des index à tes variables et de rentrer l'index de la variable dans ton tableau, au lieu de son nom.
Tu pourras ainsi t'adresser à feu VAR par   monTableauDeVAR(tblvar(1, 0)) = tblvar(0, 1)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accroit quand on

Tu peux aussi procéder comme dit plus haut avec les collections.
La valeur est en premier paramètres, et la clé en second.
Il suffit de passer par la clé.


' ** exemple simple :

Option Explicit

Private Sub Form_Load()
    Dim colTest As New Collection
    Dim i As Byte
    
colTest.Add "Valeur 1", CStr("VAR")
colTest.Add "Valeur 2", CStr("VIR")
colTest.Add "Valeur 3", CStr("VOR")

For i = 1 To colTest.Count
    Debug.Print colTest(i)
Next i

    Debug.Print "=========="

colTest.Remove ("VAR"): colTest.Add "Valeur 4", CStr("VAR")
colTest.Remove ("VIR"): colTest.Add "Valeur 5", CStr("VIR")
colTest.Remove ("VOR"): colTest.Add "Valeur 6", CStr("VOR")

For i = 1 To colTest.Count
    Debug.Print colTest(i)
Next i

Set colTest = Nothing

Unload Me

End Sub


~ Mortalino ~

@++

---

SAlut,

 CStr("VAR") ????? inutile "VAR" est déjà une chaine de caractere (si le but est tout autre me l'expliquer

@+: Ju£i€n
Pensez: Réponse acceptée