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

aidez moi,qu'est ce qu'il cloche dans ce code [VB6] - VB/VBA/VBS - Programmation

Marsh Posté le 19-01-2006 à 19:16:21    

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 :
  1. Private Sub VerifierAsc_Click()
  2. Asc = ASCtxt
  3. a = atxt
  4. b = btxt
  5. d = Dtxt
  7. Select Case Rect.Value
  8.    
  9.     Case True
  10. Bsc = a * b
  11.            
  12.             Select Case Asc
  13.            
  14.             Case Is >= (0.2 * (Bsc / 100)), Is <= (5 * (Bsc / 100))
  15.                  MsgBox ("Résultat Valide " )
  16.            
  17.             Case Is <= (0.2 * (Bsc / 100)), Is >= (5 * (Bsc / 100))
  18.                  MsgBox ("Résultat Invalide" )
  19.            
  20.             End Select
  21.    
  22.     Case False
  23. Bsc = 3.14159265358979 * (d / 2) ^ 2
  25. Case Is >= (0.2 * (Bsc / 100)), Is <= (5 * (Bsc / 100))
  26.                  MsgBox ("Résultat Valide " )
  27.            
  28.             Case Is <= (0.2 * (Bsc / 100)), Is >= (5 * (Bsc / 100))
  29.                  MsgBox ("Résultat Invalide" )
  30.                
  31.                  End Select
  32. End Select
  33. End Sub

Reply

Marsh Posté le 19-01-2006 à 19:16:21   

Reply

Marsh Posté le 19-01-2006 à 21:37:06    

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

Reply

Marsh Posté le 19-01-2006 à 23:14:25    

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
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed