Discussion :

[Sparal]

Bonjour,

J aimerais creer une fonction conntenant une Loop, et me sortant le nom d une variable en fonction de la loop.

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Calcul_Moi_Ca()
i = 1
Do Until i = 9
Variable_" & i & " = i
i = i + 1
Loop
MsgBox Variable_3
End Sub

Donc vous l aurez compris, j aimerais voir apparaitre une jolie MsgBox agrementee d un joli "3" dedans....mais que des erreurs jusqua maintenant....

Merci d avance si quelqun a une idee....

Sparal

[Demco]

Je pense que la fonction Eval() sert dans ce genre de situation.

En esperant t'aider.

PS : pense à édenter ton code afin de le rendre plus lisible.

[Sparal]

Merci Demco pour ta reponse....

Mais je ne pense pas que cette fonction fasse exactement ce que je cherche, puisque l on peut par exemple utiliser en "serie" des fonctions deja definie

Code :

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

1
2
3
4
5
6
7
8
9
Sub CallSeries()
 
    Dim intI As Integer
 
    For intI = 1 To 50
        Eval("A" & intI & "()")
    Next intI
 
End Sub

Mais ce qui implique bien qu on a deja definit 50 fonctions auparavant...
Moi je voudrais declarer le nom d une variable en me servant de Eval(), ce qui donnerais

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Callvariables()
 
    Dim intI As Integer
 
    For intI = 1 To 50
        Eval("A" & intI & ) = initI
    Next intI
 
End Sub

Hors cet exemple ne marche pas puisqu il ne trouve pas le nom de la variable par la suite (erreur 2482)

merci quand meme.....

Sparal

[Demco]

Ne pourrais-tu pas simplement utiliser un tableau ?

[=JBO=]

Bonjour,

C'est impossible en VBA !
La fonction Eval() ne peut pas retourner une "référence de variable" à laquelle une valeur serait ensuite affectée.

Eval() à certaines limites et ne peut évaluer que des expressions comportant:
* des valeurs littérales,
* des fonctions d'Access ou bien définies dans un module de code,
* des "objets de l'application Access" (formulaires, contrôles, etc.).

Ainsi, il n'est pas possible d'évaluer une expression qui fait référence à une variable. Il faut au préalable récupérer la valeur et construire une expression où cette valeur est présentée littéralement, pour être ensuite évaluée.

Ne pourrais-tu pas simplement utiliser un tableau ?

Demco a raison: la seule solution est l'utilisation d'une variable de type tableau.

[Sparal]

Merci pour vos reponse,

en effet j ai laisser tomber a Eval(), ce n etait pas vraiment ce que je cherchais.
En fait mon but est d extraire "en serie" des donnees venant d un tableau (T_Index) pour les affecter a des variables (il sagit des calculer un index pour chaque elements d un autre tableau, dependant des valeurs seuils presententes dans le tableau T_Index). Je pourrais affecter un a un les elements du tableau a une variable (il n y en a que 20 dans mon cas), mais je cherchais seulement un moyen plus elegant (=flemmardise?) d y parvenir........pas grave!!

Merci encore..

Sparal