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