1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

Condition entre deux chiffre [Résolu]

Signaler
Messages postés
855
Date d'inscription
samedi 11 juin 2005
Statut
Membre
Dernière intervention
21 août 2015
 -
Messages postés
855
Date d'inscription
samedi 11 juin 2005
Statut
Membre
Dernière intervention
21 août 2015
 -
Salut !

j'ai deux textbox (T_Montant et T_Timbre) et un Timer1




En fait, voilà exactement ce que je souhaite avoir comme résulat :

Si T_Montant est entre 0 et 5000 alors T_Timbre = 0




Si T_Montant est entre 5001 et 100000 alors T_Timbre = 100




Si T_Montant est entre



100001



et 500000 alors T_Timbre = 500




Si T_Montant est entre



500000



et 1000000 alors T_Timbre = 1000




Si T_Montant est entre



1000001



et 5000000 alors T_Timbre = 2000





Si T_Montant est supérieur à 5000000 alors T_Timbre = 5000



Mais quand je le met dans des conditions IF ca ne marche pas... je sais qu'il n'y a pas de signe "entre" mais j'ai beau essayé avec les < <> > >= = mais aucun résultat correct...

Pouvez vous m'aider svp ?




Merci d'avance

----------
OS        : Windows XP SP2
Platforme : VB 6.0 + SP6

Ok VB6.0 c'est pas net !

3 réponses

Réponse 1 / 3
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
 33
Tu peux simplifier par un switch :

Select Case T_Montant
  Case Is <=  5000
    T_Timbre = 0
  Case Is  <=  100000
    T_Timbre  = 100
  Case Is <=  500000
    T_Timbre = 500
  Case Is  <= 1 000000
    T_Timbre  = 1000
  Case Is <= 5000000
    T_Timbre = 2000
  Case Else
    T_Timbre = 5000
End Select
<!-- Coloration syntaxique vb/vba/vb.net : http://charles.racaud.free.fr/code-syntaxing/ -->
Coloration syntaxique vb/vba/vb.net

__________
  Kenji
Réponse 2 / 3
Messages postés
840
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
7 janvier 2009
 9
Salut,

If T_Montant > 5000000
Then
    T_Timbre = 5000
ElseIf
T_Montant > 1000000

Then
    T_Timbre = 2000

ElseIf
T_Montant > 500000

Then
    T_Timbre = 1000

...
Réponse 3 / 3
Messages postés
855
Date d'inscription
samedi 11 juin 2005
Statut
Membre
Dernière intervention
21 août 2015
Merci beaucoup a tout les deux, je vais tester ^^
Répondre Posez votre question