Conseil pour tests Multiples

Bonjour à tous,

Je suis a la recherche de la meilleur solution pour faire des test multiple, j'essaie de préciser un peu plus:

Dans mon esprit je vois quelque chose comme ça à la base

Code:

---

1 2 3 4 5 6

IF AV=1 AND AR=2 AND G=3 AND D=4 THEN Code = 000;000;011;011 ELSE IF AV=3 AND AR=4 AND G=1 AND D=2 THEN Code = 011;011;000;000 ....

---

Sur environ 40 à 50 tests différents.

Merci de me conseiller si il existe une solution autre que l'utilisation IF THEN ELSE IF...ELSE IF ELSE END IF

Merci d'avance en espérant avoir été suffisamment clair

Bonjour

Voir les structures SELECT CASE faites pour cela

Merci 78chris,

J'y ai pensé, mais avec un select case peut on tester plusieurs condition en meme temps, car je ne l'ai toujours vu en testant qu'une seule condition.
Mais si c'est le cas quel est la syntaxe pour tester plusieurs conditions en meme temps?

l'aide excel répond a ta question

Select Case, instruction, exemple
Cet exemple utilise l'instruction Select Case pour déterminer la valeur d'une variable. La deuxième locution Case contient la valeur de la variable qui est évaluée ; seule l'instruction qui lui est associée est exécutée.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim Number Number = 8 ' Initialise la variable. Select Case Number ' Évalue Number. Case 1 To 5 ' Le nombre est compris entre 1 et 5 inclus. Debug.Print "Entre 1 et 5" ' La locution Case suivante est la seule qui prend la ' valeur True. Case 6, 7, 8 ' Le nombre est compris entre 6 et 8. Debug.Print "Entre 6 et 8" Case 9 To 10 ' Le nombre est 9 ou 10. Debug.Print "Supérieur à 8" Case Else ' Autres valeurs. Debug.Print "Non compris entre 1 et 10" End Select

---

Merci a_diard,

Mais tu ne test que la variable Number qui a plusieurs valeurs, moi j'ai 4 variables a tester en meme temps.
Et dans ton exemple je ne vois pas comment tester mes 4 variables AV, AR, G et D, qui contiennent chacune 4 valeurs de 1 à 4, et je dois tester quasi toutes les combinaisons.

personnellement je créerais une nouvelle variable

qui concaténerait les 4 autres

Code:

---

1 2 3 4 5

select case true Case a=5 and b=6: toto=1 Case a=3 abd c=2: toto=2 '.... End select

---

Tu peux me donner un exemple, car j'ai un peu de mal a te suivre, mon niveau est modeste et là je dois dire que je rame un peu.

Merci mercatog, donc si je te suis ça donnerait ça c'est bien cela, ai je bien utilisé ton code, si c'est ça, ça pourrait me convenir.

Code:

---

1 2 3 4 5 6

select case true Case AV=1 and AR=2 and G=3 and D=4: Code=000;000;011;011 Case AV=3 and AR=4 and G=1 and D=2: Code=011;011;000;000 '.... End select

---

Oui, n' aies pas peur de foncer en testant

Ok merci je vais tester.

Sinon, suis la recomandation de Didard en utilisant une variable en concatenant les 4. Tu auras à tester une seule variable au lieu des 4

Bonjour,

tu peux aussi te construire un tableau à 4 dimensions que tu remplis une fois pour toute :

Code:

---

1 2 3 4

Dim tabl(1 To 5, 1 To 5, 1 To 5, 1 To 5) tabl(1, 2, 3, 4) = "000;000;011;011" tabl(3, 4, 1, 2) = "011;011;000;000" ' etc

---

ensuite même plus besoin de test, tu as la valeur directement :

Code:

---

1 2	av = 3: ar = 4: g = 1: d = 2 code = tabl(av, ar, g, d) ' => "011;011;000;000"

---

D'autant plus intéressant si c'est à utiliser en plusieurs endroits
eric

Bonjour
Le fait que dans ton tout premier message, on retrouve toujours la "traduction" de 1 en 000, de 2 en 000, de 3 en 011 et de 4 en 011 est-il fortuit ou non ?
Car si non fortuit, cela change bien évidemment tout et devient ultra-simple !
Réponse ?

Merci eriiic, en effet la solution du tableau peu être intéressante, je vais également voir de ce coté là.

Sinon unparia, non l'association de 1 et 000 n'est pas systématique, je n'ai pas développé car c'est un peu special cette codification 000 qui peu être 011 ou 010 ou 001 ou encore se développer avec 033, 044, 043, 034, mais je ne veux pas renter plus dans le detail, ça perturberai la question de départ.