Discussion :

[timoth]

Bonjour à toutes et tous !

Petit pb propre à l'utilisation de VBA:

Dans une fonction ayant 3 paramètres (Param1, Param2, Param3)
J'ai une boucle qui fait des traitements et qui a parfois besoin de Param1, Param2 ou Param3. C'est la valeur ValX qui me le détermine (égale à "Param1", "Param2" ou "Param3" selon les besoins).

Comment utiliser ValX pour qu'elle me sorte la valeur des paramètres et non leur nom (dont je me fous) ??

J'ai utilisé la fonction Eval() sans succès. Une autre idée ?
Bien à vous,

[marot_r]

Ta boucle est à l'extérieur de ta fonction oU à l'intérieur ?

Peut-être ceci t'aidera

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
select case ValeurX
   case "Param1"
      'Faire quelque chose
 
   case "Param2"
      'Faire autre chose
 
   case "Param3"
      'Faire quelque encore chose
 
   case else
      error(5)
 
end select

Sinon je pense que ce serait bien si tu postais ton code. Ça aide à fixer les idées.

A+

[timoth]

Hello ! Merci marot_r

Ma boucle est dans ma fonction. Mon problème n'est pas très critique mais c'est déja la deuxième fois que je ressens ce genre de besoin. Je m'en tire effectivement toujours avec un SELECT CASE.
Mais dans certain cas, ça peut être fastidieux.

Mon code est un peu complexe tel qu'il est et j'ai peur que vous ne passiez un temps inutile à le comprende. J'en poste un qui correspond à mon besoin:

Code :

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

1
2
3
4
5
6
7
Param1 = "A"
Param2 = "B"
Param3 = "C"
 
ValX = "Param1"
 
MsgBox FonctionX(ValX)

J'aimerais trouver une fonction qui me donnera ici la valeur "A". Eval me donne une erreur 2482 'Access can't find the name 'Param1' you entered in the expression'

Bien à vous !

[jj4822]

Bonjour.

Selon moi il faut remplacer :

Code :

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

1
2
3
 
 
ValX = "Param1"

par

Code :

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

1
2
3
 
 
ValX = Param1

Cdlt.

[timoth]

Merci jj4822,

dans ma fonction, ValX est une valeur d'un champ dans un jeu de données. Je lis ce jeu de données qui m'indique quelle valeur prendre (Param1, Param2, Param3)

Code :

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

1
2
3
4
5
6
7
Param1 = "A"
Param2 = "B"
Param3 = "C"
 
ValX = rec.Fields("MonParametre")
 
MsgBox FonctionX(ValX)

donc, si dans mon jeu de données, il est écrit "Param1", msgbox valX va me retourner "Param1" alors que c'est "A" que je voudrais.

[jj4822]

Si l'on met Param1 entre guillemet, VBA considere que la valeur est egale au texte Param1 et non a la valeur de la variable Param1.

A chaque fois que j'utilise une variable je fais de la maniere suivante :

Code :

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

1
2
3
4
5
6
 
 
dim Param1 as string 'string par exemple
Param1 ="A"
 
ValX = Param1

Dans le cas present, sauf erreur de ma part :

Code :

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

1
2
3
 
 
ValX = rec.Fields(param1) 'devrait considerer qu'il doit aller chercher le champ A

Maintenant, ne connaissant pas le detail du programme je ne sais pas si je repond bien a la question.

Cdlt.