VBA - affecter une valeur à une variable dynamiquement

[Stan_94]

Bonjour,
j'ai une petite migraine avec VBA.
Je pensais toruver facilement , mais non, pas moyen !
Bref, je voudrais remplir une variable dans le nom est contenu dans une autre variable...
(Quoi, ce n'est pas clair ? )
Un exemple sera plus parlant...

  Dim monChamp As String
  Dim maVariable As String

  ...
  monChamp = "maVariable"   'Dans la réalité ça viendra d'une base de donnée

  'Que mettre pour que maVariable prenne la valeur "toto" par exemple en ne manipulant que monChamp ?

J'ajoute que j'ai essayé "CallByName" mais c'est pour des appels de fonction par des variables...
Note : Je travaille en général sur l'ABAP (dans le progiciel SAP) et on sais faire ça facilement via des field-symbols, sortent de pointeurs. Mais là en VBA... je ne vois pas !!!! Je vais creuser sur les pointeurs si ça existe en VBA...

Merci, au moins pour la lecture si ce n'est pour une solution !
-----

[invite0bbe92c0]

Bonjour

Il n'existe pas de système de Reflection en VBA comme il en existe en VB.Net, mais il y a le mot clef Evaluate qui doit permettre de faire cela. (sous toute réserve,car je ne connais pas VBA).

[Stan_94]

Merci Bluedeep,
ca me donne une piste, même si pour l'instant je m'y casse les dents.
En effet en codant ça :

monChamps = "maVariable"
maChaine = monChamps & " = " & """toto"""
Evaluate (maChaine)

maChaine contient "maVariable = "toto""
pourtant maVariable reste vide.

Je crois que je prend cette fonction à l'envers. J'ai mon neurone en surchauffe à cette heure
Je creuse, je creuse... en espérant que ce ne soit pas ma tombe

[Stan_94]

Bonjour,

finalement un collègue à donner une solution, en utilisant l'instruction CallByName.
Mais il faut que les variables soient des attributs d'une classe, ce qui dans mon cas n'est pas un problème.

[A voir en vidéo sur Futura]

[invite1c6b0acc]

Bonjour,

finalement un collègue à donner une solution, en utilisant l'instruction CallByName.

Il serait intéressant que tu donnes la solution, ça peut servir aux futurs lecteurs de ce fil.

[Stan_94]

Ah ben oui, c'est pas bête ça !

Donc l'astuce est de replacer les variables utlisées dans les modules par des attributs de classe :

Je créé un module de classe nommé List :

Public maVariable As String

puis dans le module, je crée une instance de liste pour pouvoir la passer en paramètre du CallByName :

Dim maListe As New List

Sub test()

    maListe.maVariable = "Debut du test"
    MsgBox maListe.maVariable
    CallByName maListe, "maVariable", VbLet, "Fin"
    MsgBox maListe.maVariable

End Sub