1217meyrin
Messages postés159Date d'inscriptionlundi 5 avril 2004StatutMembreDernière intervention 6 février 2007
-
19 août 2006 à 17:05
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 2011
-
19 août 2006 à 17:47
bonjour,
voilà le test que je fait:
if (Val(a2.Text) = Val(a1.Text) + 1
Or Val(a2.Text) = Val(a1.Text) - 1) then
si a1 contient 6, si je rentre 5 ou 7, la condition est remplie, mais si je rentre 1 la condition saute?
c'est à cause du +1 dans la formule, mais comment faire autrement?
If ValTest ValPlus Or ValTest ValMoins then
MsgBox "La valeur est à plus ou moins 1, c'est parfait"
Else
MsgBox "Retourne à l'école, tu sais pas compter... la valeur doit-être " & _
Val(a1.Text) + 1 & " OU " & Val(a1.Text) - 1
End If
Dolphin Boy
Messages postés630Date d'inscriptionvendredi 5 mai 2006StatutMembreDernière intervention17 février 2007 19 août 2006 à 17:28
Salut, peut-être qu'un petit Else avec le code qui va bien dedans devrait te sortir d'affaire ?
If conditionremplie then
'moncode
else
'monautrecode
end if
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 19 août 2006 à 17:42
Arf,
salut Dolphin, je n'avais pas compris ça, c'est pas con !
'(en fait, j'ai rien compris du tout...de ce qu'il voulait)
Donc pour faire comme dit Dolphin :
If (Val(a2.Text) Val(a1.Text) + 1 Or Val(a2.Text) Val(a1.Text) - 1) then
MsgBox "La valeur est à plus ou moins 1, c'est parfait"
Else
MsgBox "Retourne à l'école, tu sais pas compter... la valeur doit-être " & _
Val(a1.Text) + 1 & " OU " & Val(a1.Text) - 1
End If