Sujet Précédent Sujet Suivant

Les if...

SamuelCadieux Messages postés 31 Date d'inscription dimanche 8 septembre 2002 Statut Membre Dernière intervention 20 juin 2003 - 12 sept. 2002 à 03:58
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 16 sept. 2002 à 01:54
Intro:
voici une programmation qui consite, a changer une shape (shape1) de backcolor selon des données inscrites ds 3 zones de textes(Text1, Text2, Text3) en cliquant sur le bouton Command1.

But:
Si une valeur est suppérieur ou égale a 256 un message derreru apparait ds un label(label1) comme quoi il est trop gros mais...

Problème:
J'ai esseyer de mette une programmation qui em^pêcherai de mettre inférieur`ou égale à: -1

Programation(vb 5):
Voici ma programmation,

Private Sub Command1_Click()
Shape1.BackColor = RGB(Text1.Text, Text2.Text, Text3.Text)
If Val(Text1.Text) >= 256 Or Val(Text2.Text) >= 256 Or Val(Text3.Text) >= 256 Or Val(Text1.Text) <= -1 Or Val(Text2.Text) <= -1 Or Val(Text3.Text) <= -1 Then Label1.Caption = "Une des valeurs est trop grosse! Elles doivent se tenir entre 0 et 255." Else Label1.Caption = ""
End Sub

MErci d'avance pour vos réponses

3 réponses

Réponse 1 / 3
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
12 sept. 2002 à 08:02
essaye val(text1.text) <0 tout simplement, si ce ne marche pas, réponds à ce message

DARK SIDIOUS
0
Réponse 2 / 3
SamuelCadieux Messages postés 31 Date d'inscription dimanche 8 septembre 2002 Statut Membre Dernière intervention 20 juin 2003
12 sept. 2002 à 23:06
:shock) T'inquiète j'ai dejas esseye au part avant

et ca me dis | Erreur d'execution '5';
Argument ou procédure incorecte
0
Réponse 3 / 3
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
16 sept. 2002 à 01:54
Essaie :
Text1.Text = (Val(Text1.Text) + 256) Mod 256

au lieu de -1 tu auras 255
0

Discussions similaires

If et else dans stored procedure
issoux -
issoux -

2 réponses
End If sans bloc If, VBA/Access
nenette_cherie -
nenette_cherie -

14 réponses
[MySQL]Peut-on mettre une condition IF dans un UPDATE?
shidame -
shidame -

4 réponses
DROP TABLE IF EXISTS
MrOsmose -
skweeky -

1 réponse
inverse de la fonction if(empty($variable))
cs_Alpha911 -
stroubinou -

7 réponses
Rejoignez-nous