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.