Discussion :

[averooès]

Bonjour,
Je cherche le code qui me permet de faire appel à une variable par son nom
Exemple

Code :

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

1
2
3
4
5
6
7
8
9
Dim trm1 As String
Dim trm2 As String
Dim p As Integer
trm1 = "Premier Trimestre"
trm2 = "Deuxième Trimestre"
                For p = 1 To 2
                    If  rst!Période = "trm" & p Then
                    MsgBox "hi"
                Next p

Ça ne marche pas
je me demande si c'est possible !

[Attrox]

Non ce n'es pas possible par contre ce que tu peut faire c'est faire un tableau et appeler ta variable comme cela trm[p]

Déclaration d'un tableau:
Dim trm[50] as integer;

Pour un tableau de 50 entier par exemple.
Le premier indice d'un tableau est 0.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim trm[3] As String
Dim p As Integer
 
trm[0]= "Premier Trimestre"
trm[1] = "Deuxième Trimestre"
                For p = 0 To 1
                    If  rst!Période = trm[p] Then
                    MsgBox "hi"
                Next p

[marot_r]

Tu peux le faire comme cela

Code :

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

1
2
 
rst!Période = eval("trm" & p)

mais sincèrement je recommande plus cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
dim trm as variant:trm=array("Premier Trimestre", "Deuxième Trimestre")
 
dim p as integer: for p=lbound(trm) to ubound(trm)
 
  If  rst!Période = trm(p) Then
    MsgBox "hi"
    exit for :'Vu qu'on a trouvé ce qu'on cherche on peut arréter le parcours de la boucle, non ?
  end if
 
next p

et encore plus de stocker "Premier Trimestre", "Deuxième Trimestre" dans une table et de stocker la clefPeriode plutôt que le libellé correspondant.

A+

[Attrox]

C'est plus propre avec un jolie tableau.

[marot_r]

Oui et plus sécuritaire, Eval() peut éxécuter n'importe quelle fonction. Comme tous les outils puissant c'est donc à minipuler avec précautions.

[averooès]

Merci beaucoup les gars ça marche, vous ne pouvez savoir comment j’ai merdé là-dessus.
marot
Peux-tu expliquer ton code
Array ?
Lbound et Ubound ?
Finalement j’ai adopté la solution avec le tableau.

[Attrox]

Oui vaut mieux le tableau plus sécuritaire plus propre.

[marot_r]

Ma solution est aussi avec un tableau mais la déclaration de la dimension est implicite.

Array crée un tableau de X éléments en fonction des paramêtres qui lui sont passés (ici 2).

Lbound() donne l'indice du 1er élément (ici 0), uBound() donne l'indice du dernier élément (ici 1).

Ce code a l'avantage que si tu décides d'ajouter un élément, tu as juste à ajouter l'élément dans Array() et tout le reste du code reste inchangé.

Dans la solution de Attrox, si tu décides d'ajouter un élément il faut que :

• tu changes la dimension du tableau
• tu modifies la fin de ta boucle.

De plus quand tu mets des valeurs en dur dans du code, tu ne sais pas trop à quoi elles réfèrent. Ici 2, si tu ne regardes que la ligne de la boucle c'est quoi ? L'indice max du tableau, le nombre de tes enfants ou un chiffre chanceux au loto ? :-)

Si tu lis UBound(trm), tu sais immédiatement que c'est le dernier indice de ton tableau.

Je t'accorde que dans du code aussi simple c'est un peu 'overkilling' mais dans du code plus complex cela le rend plus lisible. Imagine juste un instant que ta déclaration de tableau soit 50 lignes plus haut.

Aussi traditionnelement pour les boucles for next on utilise les indices i, j, k, m, n.

Un truc encore quand tu ne connais pas une instruction, tu sélectionnes le texte et tu appuis sur F1, généralement cela ouvre l'aide sur l'instruction sélectionnée.

A+