Discussion :

[oscar.cesar]

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 () ...........

[ucfoutu]

Bonjour,

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

Code :

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

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

[oscar.cesar]

rien dire




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

Case 1, 5, 12, 27

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

[Krovax]

pour info quand même

Code :

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

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 :

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

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

[oscar.cesar]

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

[Krovax]

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

Code :

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

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"