Discussion :

[zlavock]

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 :

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

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"

[Vesta]

Solu 1:

Code :

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

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

Solu 2:

Code :

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

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

[zlavock]

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 :

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

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.

[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

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

[Catbull]

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 :

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

[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

Enfin, bon je vais faire avec ^^

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

[ThierryAIM]

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

Non, tu nous fait juste perdre notre temps

[Catbull]

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

Enfin, bon je vais faire avec ^^

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

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

[Vesta]

Je veux bien la connaitre jmfmarques...

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

[ThierryAIM]

J'en ai une autre:

Code :

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

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

[AlainTech]

Pourquoi VB6 uniquement?

Marche parfaitement en VBA Excel 97...

[ThierryAIM]

Pourquoi VB6 uniquement?

Marche parfaitement en VBA Excel 97...

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

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

Marche aussi parfaitement en VBA Excel 2003

Je retire le VB6 ...

[jmfmarques]

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

[ouskel'n'or]

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