variable à plusieurs valeurs dans une bcle If then ?

bonjour
voila le probleme
j'ai le test suivant
si SP= val alors instruction
le truc , c'est VAL contient plusieurs valeurs qui peuvetn etre discontinues.

ex val =( 45,48,58,60,....)
j'ai essayé
si SP =(45,48.... marche pas erreur
si SP=(45 or 48....) marche pas

si quelqu'un à une idee :(:(



peut un tableau () ...........:(:(

Bonjour,

Une idée ?
Oui, plusieurs... mais la plus simple reste d'utiliser un select case, pardi

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim toto As Integer toto = 4 Select Case toto Case 1, 5, 12, 27 MsgBox "oui" Case 8, 4 MsgBox "peut-être" Case Else MsgBox "non" End Select

---

:oops:
rien dire



:mouarf:
je rajoute les valeurs sont issus d'une procedure
donc pour reprendre

Citation:

---

Case 1, 5, 12, 27

---

comment faire pour inclure dans le case (x,y,z,....) les resultats de la procedure

pour info quand même

Code:

---

if sp = 44 or sp=11 or sp=4 then

---

il faut mettre le or entre les =
Chaque égale renvoie un booléen et on utilise les or pour les traiter

regarde celui la

Code:

---

1 2 3 4 5 6 7 8

dim a as boolean,b as integer,c as integer b=3 c=6 a=b=c msgbox a a=2*b=c msgbox a

---

bonsoir ucfoutu, krovax

comme je le dis
les valeurs etant issues d'une procedure donc le nb de valeurs est variables .
il faut que je trouve un moyen de les inclure automatiquement dans mon test .
pour le SELECT CASE , c'est mieux que rien
il faudrait que je creuse l'idee du tableau
le test si SP est present dans le tableau et je lance l'instruction :?

Dans ce cas si tu as un tableau val et que tu veux tester si sp est une des valeur
mais dans ce cas sp=val ne peux pas fonctionner va dire a un matheux si 5 égale le vecteur (1,2,3) il va faire de gros yeux :roll:

Code:

---

1 2 3 4 5 6 7 8 9

for i = 0 to ubound(val ) if val(i)=sp then flag=true exit for end if next i   'ensuite tu test flag if flag then mesgbox "sp est une des valeur de val"

---

Re...

Je n'aime pas trop l'idée de parcourir un tableau ==>> lent si éléments nombreux ...

Rien n'empêche d'utiliser des variables et d'y "fouiller".
Les variables peuvent résulter d'une concaténation des valeurs (celles que l'on met dans un tableau ...)

Exemple (et à toi d'adapter car je n'aime pas trop que l'on avance pas à pas en raison du fait que tu ne dis les choses que peu à peu ...).

Code:

---

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

Dim valeuroui As String, valeurpeutetre As String, valeurnon As String 'si tes valeurs sont récupérées quelque part, rien, ne t'empêche, au moment ' de la récupération, de les écrire dans des chaînes, en concaténation ' et tu aurais (exemple) un résultat ressemblant à ceci valeuroui = "#1#5#8#9#" valeurpeutetre = "#2#4#" valeurnon = "#0#3#6#7#" atester = 4 ' bien évidemment, ce sera la valeur à tester et non forcément 4 If CBool(InStr(valeuroui, "#" & atester & "#")) Then MsgBox "oui" ElseIf CBool(InStr(valeurpeutetre, "#" & atester & "#")) Then MsgBox "peut-être" ElseIf CBool(InStr(valeurnon, "#" & atester & "#")) Then MsgBox "non" End If

---

Entre ceci et tout ce que t'ont dit plus haut les uns et les autres, à toi de jouer un peu (le reste n'est qu'organisation de ta pensée en fonction de ce que tu veux faire et des valeurs que tu dis extraire, sans autre précision).
Travaille bien.

Salut,

Moi perso j'aime bien l'idée du tableau. Mais un tableau spécifique : le Dictionnary

Donc tu vas Tools> References et tu coches Microsoft Scripting Routine

Et apres ca donne un truc du genre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub MonCas(ByVal MonInt As Integer)   Dim oDico As Scripting.Dictionary Set oDico = New Scripting.Dictionary oDico.Add PROCEDURE1, "OUI" oDico.Add PROCEDURE2, "OUI" oDico.Add PROCEDURE3, "NON" oDico.Add PROCEDURE4, "OUI" oDico.Add PROCEDURE5, "PEUT-ETRE"   If oDico.Exists(MonInt) = False Then MsgBox MonInt & " n'existe pas" Else MsgBox oDico.Item(MonInt) End If Set oDico = Nothing   End Sub

---

Un Petit exemple pour tester en direct

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub MonCas1(ByVal MonInt As Integer)   Dim oDico As Scripting.Dictionary Set oDico = New Scripting.Dictionary oDico.Add 1, "OUI" oDico.Add 2, "OUI" oDico.Add 3, "NON" oDico.Add 4, "OUI" oDico.Add 5, "PEUT-ETRE"   If oDico.Exists(MonInt) = False Then MsgBox MonInt & " n'existe pas" Else MsgBox oDico.Item(MonInt) End If Set oDico = Nothing End Sub Sub Main() Call MonCas1(1) Call MonCas1(11) End Sub

---