[VBA-E] Utilisation dynamique de variables

Version imprimable

09/06/2006, 10h50
zlavock

[VBA-E] Utilisation dynamique de variables
Bonjour,

Je cherche à faire une fonction générique qui en fonction de l'élément passé en paramètre, effectue un certain traitement avec certaine variable.

Je voudrai donc par exemple lire le contenu de la varialble MaVariable1 en passant le 12 en paramètre.
Code:

1 2 3 4 5 6 Dim MaVariable1 as String MaVariable1 = "TOTO" Dim i as Integer i =1 MsgBox "MaVariable" & i
Je voudrai que ca affiche "TOTO"

Solu 1:

Code:

1
2
3
4
5
6
Dim Variables() as Variant
 
Variables(1) = "TOTO"
Variables(2) = 21
 
Msgbox Variables(1) 'Affichera toto

Solu 2:

Code:

1
2
3
4
5
6
 
AfficheVariable("toto") 'Affichera toto
 
Sub AfficheVariable(Variable as variant)
Msgbox Variable 
End Sub

Mhhh .. je me suis peut être mal expliqué. En fait je veux faire un traitement générique, passé un paramètre, qui composera le nom de ma variable, et je voudrais ensuite manipuler ma variable. Par exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Dim lib_Exemple1_toto = "toto" Dim lib_Exemple1_titi = "titi" Dim lib_Exemple2_toto = "toto2" Dim lib_Exemple2_titi = "titi2" public sub traitementGenerique(element as String) msgBox "lib_" & element & "_toto" msgBox "lib_" & element & "_titi" end sub call traitementGenerique("Exemple1") ==> affiche "toto" puis "titi" call traitementGenerique("Exemple2") ==> affiche "toto2" puis "titi2"
Je veux manipuler mes variables en passant leur nom en chaine de caractère et non passer par des tableaux.

09/06/2006, 13h11
Vesta

J'ai beaucoup cherché sur le net et je ne trouve rien... J'ai essayé en chipottant avec des fonction permettant de donner le type de variable pour voir si il n'y avait pas moyen de connaitre le 'type' d'une variable et faire une boucle qui les affiche toutes par exemple mais je n'y suis pas arrivé une démarche jmfmienne sans doutes lui comprendra lol mais rien a faire... Il aura peu etre une solution mais je n'y arrive pas...

j'ai trouvé ca : CallByName mais ca ne s'applique pas aux variables...

Si tu trouve ca m'interesse comme ca au moins je resterai pas idiot :D
09/06/2006, 14h15
jmfmarques

Attendons donc... attendons... (je connais la réponse depuis plus de 8 ans)...
Z'êtes curieux, hein ? (elle est la plus simple du monde, pourtant)

Il s'agit du principe du dictionnaire. On accède à un élément à l'aide d'un clé et non d'un index. Mais ce principe utilise une 'sorte' de tableau comme une Collection :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public CollectionDeVariables As New Collection
 
Public Sub main()
 
    While CollectionDeVariables.Count > 0
        CollectionDeVariables.Remove 1
    Wend
 
    CollectionDeVariables.Add "toto", "lib_Exemple1_toto"
    CollectionDeVariables.Add "titi", "lib_Exemple1_titi"
    CollectionDeVariables.Add "toto2", "lib_Exemple2_toto"
    CollectionDeVariables.Add "titi2", "lib_Exemple2_titi"
 
    traitementGenerique "Exemple1"
    traitementGenerique "Exemple2"
End Sub
 
Public Sub traitementGenerique(element As String)
   MsgBox CollectionDeVariables("lib_" & element & "_toto")
   MsgBox CollectionDeVariables("lib_" & element & "_titi")
End Sub

09/06/2006, 14h40
zlavock

ok ok merci.

Je pensais plutôt à quelque genre du genre {"MaVarialble"+i}, un peu comme en windev ou php.... mais ca tombe ce n'est pas aussi facile que ca en VB, et qu'on doit passé par le principe de dictionnaire comme l'a expliqué CatBull :roll:

Enfin, bon je vais faire avec ^^

Je laisse le post ouvert au cas ou d'autre connaisse la solution optimale :P
09/06/2006, 14h40
ThierryAIM

Citation:

Envoyé par jmfmarques

Z'êtes curieux, hein ? (elle est la plus simple du monde, pourtant)

Non, tu nous fait juste perdre notre temps :?
09/06/2006, 14h44
Catbull

Citation:

Envoyé par zlavock

ok ok merci.

Je pensais plutôt à quelque genre du genre {"MaVarialble"+i}, un peu comme en windev ou php.... mais ca tombe ce n'est pas aussi facile que ca en VB, et qu'on doit passé par le principe de dictionnaire comme l'a expliqué CatBull :roll:

Enfin, bon je vais faire avec ^^

Je laisse le post ouvert au cas ou d'autre connaisse la solution optimale :P

D'un point de vu performance cette solution est plus optimale que celle de {"MaVarialble"+i}. Car avec cette solution tu gères une variable (la collection) alors qu'avec {"MaVarialble"+i} tu dois gérer N variables.

De plus essaies de mettre en place {"MaVarialble"+i} pour 100 000 éléments tu vas avoir un sacré paquet de variables à déclarer ;)
09/06/2006, 14h44
Vesta

Je veux bien la connaitre jmfmarques...
09/06/2006, 14h44
jmfmarques

Non Thierry, je ne fais pas perdre du temps !
J'ai dit : "je connais la réponse", pas la solution !
Car la réponse est tout simplement : il n'y a pas de solution, il ne peut y avoir que des subterfuges ....
Edit :
Le dernier subterfuge du genre que j'ai mis en oeuvre faisait, si je me rappelle bien, appel à On... GoSub...

avec, en entrée, une variable du type :
nomvar1/nomvar2/nomvar3 etc...
pour déterminer le rang (par rapport au séparateur, du string nomvarx et renvoyer vers un

sub1 :
titi = var1 : return
sub2:
titi = var2 : return
.
.
.

sub n:
titi = varn : return

et.... utiliser titi comme variable...
Je me rappelle que c'était là le subterfuge le plus rapide (chrono en mains)...
Voila !

J'en ai une autre:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim lib_Exemple1_toto
Dim lib_Exemple2_toto
Dim expr As String
 
 
    Set sc = CreateObject("ScriptControl")
    sc.Language = "vbscript"
    sc.ExecuteStatement ("lib_Exemple1_toto = ""toto""")
    sc.ExecuteStatement ("lib_Exemple2_toto = ""toto2""")
 
    For i = 1 To 2
        expr = "lib_Exemple" & i & "_toto"
        Debug.Print sc.Eval(expr)
    Next

09/06/2006, 19h30
AlainTech

Pourquoi VB6 uniquement?

Marche parfaitement en VBA Excel 97...
09/06/2006, 19h37
ThierryAIM

Citation:

Envoyé par AlainTech

Pourquoi VB6 uniquement?

Marche parfaitement en VBA Excel 97...

Parce que pas testé en VBA :oops: (piqué vite fait dans un de mes prog)

mais comme tu m'y forces, alors je dis :

Marche aussi parfaitement en VBA Excel 2003 :D

Je retire le VB6 ... ;)
09/06/2006, 19h47
jmfmarques

Marche également sans problème sous VB5 et Win 2000;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub ParamètreEnvoyer()
Collection_Remplir "Et alors ? ", "C'est ", "quoi ", "ton problème ?", 5
End Sub
 
Sub Collection_Remplir(Paramètre1, paramètre2, paramètre3, Paramètre4, paramètre5)
 Dim MaColect  As New Collection
    ' Rempli la collection
    MaColect.Add Paramètre1, "Un"
    MaColect.Add paramètre2, "Deux"
    MaColect.Add paramètre3, "trois"
    MaColect.Add Paramètre4, "Quatre"
    MaColect.Add paramètre5, "Cinq"
    'Affichage
    Debug.Print MaColect("Un") & MaColect("Deux") & MaColect("trois") & MaColect("Quatre")
    MsgBox MaColect("Un") & MaColect("Deux") & MaColect("trois") & MaColect("Quatre") & " " & MaColect("Cinq")
    'ou
    MsgBox MaColect(1) & MaColect(2) & MaColect(3) & MaColect(4) & " " & MaColect(5)
 
End Sub

Un truc comme ça te conviendrait-il ? Juste une alternative ;)

A+