Syntaxe If Then Else Visual basic [Résolu/Fermé]

Signaler
Messages postés
65
Date d'inscription
mardi 4 novembre 2008
Statut
Membre
Dernière intervention
12 juillet 2012
-
Messages postés
348
Date d'inscription
vendredi 24 juin 2011
Statut
Membre
Dernière intervention
15 novembre 2016
-
Bonjour,
je debute en visual basic et ai un probleme de syntaxe.
Voila mon code.

If x < 3 Then pm = 45 And mr = 1.2
If 3 <= x < 6 Then pm = 43 And mr = 1.125
If 6 <= x < 9 Then pm = 40 And mr = 1.125
If 9 <= x < 12 Then pm = 38 And mr = 1.125
If 12 <= x < 15 Then pm = 35 And mr = 1.125
If 15 <= x < 20 Then pm = 34 And mr = 1.125
If 20 <= x < 30 Then pm = 33 And mr = 1.125
If 30 <= x < 40 Then pm = 32 And mr = 1.125
If 40 <= x < 50 Then pm = 31 And mr = 1.125
If 50 <= x < 60 Then pm = 30 And mr = 1.125
If x >= 60 Then pm = 29 And mr = 1.05

3 réponses

Messages postés
4239
Date d'inscription
lundi 20 avril 2009
Statut
Contributeur
Dernière intervention
12 septembre 2014
1 274
Bonjour,

en utilisant If, Then et Else :
If x < 3 Then
    pm = 45
    mr = 1.2
Else If x < 6 Then
    pm = 43
    mr = 1.125
Else IF x < 9 Then
...
Else 
    pm = 29
    mr = 1.05
End If


En utilisant le Select case :
Select Case x
    Case < 3
        pm = 45
        mr = 1.2
    Case < 6
        pm = 43
        mr = 1.125
    Case < 9
...
    Case < 60
        pm = 30
        mr = 1.125
    Case Else 
        pm = 29
        mr = 1.05
End Select


Cordialement.
2
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 76687 internautes nous ont dit merci ce mois-ci

Messages postés
4239
Date d'inscription
lundi 20 avril 2009
Statut
Contributeur
Dernière intervention
12 septembre 2014
1 274
Un signe de vie ne serait pas de trop...
Messages postés
348
Date d'inscription
vendredi 24 juin 2011
Statut
Membre
Dernière intervention
15 novembre 2016
110
Bonjour,

Tu ne peux pas faire un encadrement en programmation. De plus les instructions à exécuter ne peuvent contenir "AND":
if 3 <= x < 6 Then pm = 43 And mr = 1.125 est incorrect

tu dois écrire:
IF x <= 3 AND x < 6 then
pm = 43
mr = 1.125
EndIF

J'espère que ca t'aide

Glouton.
Messages postés
65
Date d'inscription
mardi 4 novembre 2008
Statut
Membre
Dernière intervention
12 juillet 2012
2
Glouton et chousette, je vous remercie de votre aide qui m'a etait precieux mon programme marche a merveille maintenant .
Bonne continuation et merci encore !!!
Messages postés
348
Date d'inscription
vendredi 24 juin 2011
Statut
Membre
Dernière intervention
15 novembre 2016
110
De rien l'ami! C'est à ca que sert ce forum :)