Problème avec select case.

Sujet: Problème avec select case. Sam 27 Oct 2012 - 17:48

Bonjour.

J'obtiens l'erreur suivante: erreur de valeur après case.

Merci de votre aide.

Code:: code_car%=asc(left$(infinitif_langue_source$,1))

select code_car%

case 97:
if infinitif_langue_source$="amuir" and personne%>3
S2(chaine2000$,1)
chaine2000$="ï"+S2$
end_if

if infinitif_langue_source$="absoudre" then traiter_modele_112()
if infinitif_langue_source$="accroître" then traiter_modele_103()
if infinitif_langue_source$="advenir" then traiter_modele_43()
if infinitif_langue_source$="aller" then traiter_modele_62()
if infinitif_langue_source$="apparoir" and personne%=3 then traiter_modele_84()
if infinitif_langue_source$="avenir" then traiter_modeles_132_135_136_et_137()
if infinitif_langue_source$="avoir" then traiter_modele_134()

case 98:
if infinitif_langue_source$="boire" then traiter_modele_106()
if infinitif_langue_source$="braire" then traiter_modele_98()
if infinitif_langue_source$="bruire" then traiter_modele_131()

case 99:
if infinitif_langue_source$="chaloir" and personne%=3 then traiter_modele_86()
if infinitif_langue_source$="choir" then traiter_modele_81()
if infinitif_langue_source$="circoncire" then traiter_modele_128()
if infinitif_langue_source$="clore" then traiter_modele_107()
if infinitif_langue_source$="contrefoutre" then traiter_modele_145()
if infinitif_langue_source$="conclure" then chaine2000$=terminaisons_ter_verbes_en_ir$(personne%-1)
if infinitif_langue_source$="confire" then traiter_modele_125()
if infinitif_langue_source$="coudre" then traiter_modele_114()
if infinitif_langue_source$="courbaturer" then chaine2000$=terminaisons_verbes_en_er$(personne%-1)
if infinitif_langue_source$="croire" then traiter_modele_105()
if infinitif_langue_source$="croître" then traiter_modele_102()

case 100:
if infinitif_langue_source$="déchoir" then traiter_modele_83()
if infinitif_langue_source$="déconfire" then traiter_modele_125()
if infinitif_langue_source$="découdre" then traiter_modele_114()
if infinitif_langue_source$="décroître" then traiter_modele_103()
if infinitif_langue_source$="dire" then traiter_modele_120()
if infinitif_langue_source$="dissoudre" then traiter_modele_112()
if infinitif_langue_source$="douer" then traiter_modeles_132_135_136_et_137()

case 233:
if infinitif_langue_source$="échoir" then traiter_modele_82()
if infinitif_langue_source$="éclore" then traiter_modele_108()
if infinitif_langue_source$="élire" then traiter_modele_119()
if infinitif_langue_source$="émoudre" then traiter_modele_115()

case 101:
if infinitif_langue_source$="enclore" then traiter_modele_140()
if infinitif_langue_source$="ensuivre" then traiter_modele_141()
if infinitif_langue_source$="entre-suivre" then traiter_modele_116()
if infinitif_langue_source$="exclure" then chaine2000$=terminaisons_ter_verbes_en_ir$(personne%-1)

case 234:
if infinitif_langue_source$="être" then chaine2000$=etre$(personne%-1)

case 102:
if infinitif_langue_source$="faillir" then chaine2000$=terminaisons_verbes_en_ir$(personne%-1)
if infinitif_langue_source$="falloir" then traiter_modele_73()
if infinitif_langue_source$="forfaire" then traiter_modele_142()
if infinitif_langue_source$="foutre" then traiter_modele_145()
if infinitif_langue_source$="frire" then traiter_modele_126()

case 103:
if infinitif_langue_source$="gésir" then traiter_modele_61()

case 104:
if infinitif_langue_source$="huir" then traiter_modeles_146_et_147()

case 105:
if infinitif_langue_source$="impartir" then traiter_modeles_146_et_147()
if infinitif_langue_source$="inclure" then chaine2000$=terminaisons_ter_verbes_en_ir$(personne%-1)
if infinitif_langue_source$="incomber" then traiter_modele_148()
if infinitif_langue_source$="issir" then traiter_modeles_149_et_150()

case 108:
if infinitif_langue_source$="lire" then traiter_modele_119()
if infinitif_langue_source$="luire" then traiter_modele_130()

case 109:
if infinitif_langue_source$="maudire" then traiter_modele_121()
if infinitif_langue_source$="messeoir" then traiter_modele_79()
if infinitif_langue_source$="moudre" then traiter_modele_115()
if infinitif_langue_source$="mourir" then traiter_modele_55()

case 110:
if infinitif_langue_source$="nuire" then traiter_modele_130()

case 111:
if infinitif_langue_source$="occire" then traiter_modeles_132_135_136_et_137()
if infinitif_langue_source$="occlure" then chaine2000$=terminaisons_ter_verbes_en_ir$(personne%-1)
if infinitif_langue_source$="ouïr" then traiter_modele_60()

case 112:
if infinitif_langue_source$="paître" then traiter_modele_101()
if infinitif_langue_source$="parfaire" then traiter_modele_143()
if infinitif_langue_source$="pleuvoir" then traiter_modele_72()
if infinitif_langue_source$="poursuivre" then traiter_modele_116()
if infinitif_langue_source$="pouvoir" then traiter_modele_69()

case 114:
if infinitif_langue_source$="reboire" then traiter_modele_106()
if infinitif_langue_source$="reclure" then chaine2000$=terminaisons_ter_verbes_en_ir$(personne%-1)
if infinitif_langue_source$="recoudre" then traiter_modele_114()
if infinitif_langue_source$="recroître" then traiter_modele_104()
if infinitif_langue_source$="redire" then traiter_modele_120()
if infinitif_langue_source$="réélire" then traiter_modele_119()
if infinitif_langue_source$="relire" then traiter_modele_119()
if infinitif_langue_source$="rémoudre" then traiter_modele_116()
if infinitif_langue_source$="remoudre" then traiter_modele_115()
if infinitif_langue_source$="résoudre" then traiter_modele_113()
if infinitif_langue_source$="résulter" then traiter_modele_148()
if infinitif_langue_source$="revaloir" then traiter_modeles_149_et_150()
if infinitif_langue_source$="rire" then chaine2000$=terminaisons_ter_verbes_en_ir$(personne%-1)
if infinitif_langue_source$="revivre" then traiter_modele_117()

case 115:
if infinitif_langue_source$="seoir" then traiter_modele_78()
if infinitif_langue_source$="soudre" then traiter_modele_113()
if infinitif_langue_source$="sourdre" then traiter_modele_151()
if infinitif_langue_source$="sourire" then chaine2000$=terminaisons_ter_verbes_en_ir$(personne%-1)
if infinitif_langue_source$="stupéfaire" then traiter_modele_144()
if infinitif_langue_source$="suffire" then traiter_modele_127()
if infinitif_langue_source$="surfaire" then traiter_modele_142()
if infinitif_langue_source$="suivre" then traiter_modele_116()
if infinitif_langue_source$="surseoir" then traiter_modele_80()
if infinitif_langue_source$="survivre" then traiter_modele_118()

case 117:
if infinitif_langue_source$="urger" then traiter_modele_154()

case 118:
if infinitif_langue_source$="vivre" then traiter_modele_117()
if infinitif_langue_source$="vouloir" then traiter_modele_76()

end_select

Nombre de messages : 26 Date d'inscription : 11/07/2012

Enlève les : après tes cases

Sujet: Re: Problème avec select case. Sam 27 Oct 2012 - 18:39

En fait tu ne mets les : que si tu mets une commande juste derrière (ça remplace le retour à la ligne)
par exemple tu peut mettre case 97: S2$="Toto": print S2$
ou
case 97
S2$="Toto"
print S2$

Tu voix c'est le même principe, le : remplace le retour à la ligne

Sujet: Problème avec select case. Sam 27 Oct 2012 - 18:54

Bonjour.

Merci à tous de votre aide.

Le problème est maintenant résolu.

En fait, il ne faut jamais écrire une ligne vide sur la même ligne qu'un case.

Sujet: Re: Problème avec select case. Sam 27 Oct 2012 - 18:59

Si tu peux, mais dans ce cas, tu ne mets pas les :
Tu as le même problème si tu mets un : après un autre commande sans rien derrière puisque les deux points signifient justement qu'il y a une autre commande qui suit. Comme il ne la trouve pas, il te dit qu'il y a une erreur

» Problème avec select case Probleme réglé merci
» Problème avec des SELECT...CASE imbriqués
» [Syntaxe] Utilisation de Select / Case
» else et select case
» SELECT, CASE, END_SELECT