[VB6] aidez moi,qu'est ce qu'il cloche dans ce code

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VB6] aidez moi,qu'est ce qu'il cloche dans ce code

saymn

j'ai eu beau de réessayer toute les combinaisons possible , mais a chaque fois que je change les valeurs le MsgBox
affiche toujours "résultat valide" !!!

Code :

Private Sub VerifierAsc_Click()
Asc = ASCtxt
a = atxt
b = btxt
d = Dtxt
Select Case Rect.Value
Case True
Bsc = a * b
Select Case Asc
Case Is >= (0.2 * (Bsc / 100)), Is <= (5 * (Bsc / 100))
MsgBox ("Résultat Valide " )
Case Is <= (0.2 * (Bsc / 100)), Is >= (5 * (Bsc / 100))
MsgBox ("Résultat Invalide" )
End Select
Case False
Bsc = 3.14159265358979 * (d / 2) ^ 2
Case Is >= (0.2 * (Bsc / 100)), Is <= (5 * (Bsc / 100))
MsgBox ("Résultat Valide " )
Case Is <= (0.2 * (Bsc / 100)), Is >= (5 * (Bsc / 100))
MsgBox ("Résultat Invalide" )
End Select
End Select
End Sub

Publicité

drakins

Je suis pas un expert mais c'est pas parce que vous avez mis >= et aussi <= ?

saymn

non ce n'étais pas ça le problème.
j'ai eu ma reponse sur un autre forum.

Case Is <= (0.2 * (Bsc / 100)), Is >= (5 * (Bsc / 100))
MsgBox ("Résultat Invalide" )

Case Else
MsgBox ("Résultat Valide " )
End Select

en plus d'avoir oublié select case dans la case false.

Message édité par saymn le 19-01-2006 à 23:15:21

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VB6] aidez moi,qu'est ce qu'il cloche dans ce code

Sujets relatifs
[VB6] recuperer une chaine dans une chaine...	[TOPIC UNIK] VBA et Excel 200x exemples de code
Transformation de code HTML en chaine	[Résolu]Fonction Pos : mon code ne marche pas
nombre de lignes d'un textbox en VB6	Les meilleurs perfs pour Java : compilation code natif, -O, -server ?
longueur max de code.Inet1.OpenURL ?	partir le code VBA d'un bouton d'un formulaire access
VB6 visual 2005	Probleme avec mon script vbs aidez moi!!!
Plus de sujets relatifs à : [VB6] aidez moi,qu'est ce qu'il cloche dans ce code

Page générée en 0.061 secondes