Select case

Signaler
Messages postés
23
Date d'inscription
samedi 29 janvier 2011
Statut
Membre
Dernière intervention
8 avril 2013
-
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
-
Salut
quelqu'un peut-il m'aider
j'ai 2 champs text
text1 et text2 je veux quand en saisissant des nombres entre 2 et 6.9 dans le text1 le montant 8500 s'affiche sur le text2
puis un nombre entre 7 et 10.9 s'affiche 12500
sur le text2 Et cetera j'ai ce code mais les resultats ne sont pas toujours correctes

Dim value As long
value = Text1
Select Case value
Case 2 To 6.9
Text2 = 8500
Case 7 To 10.9
Text2 = 12500
Case 11 To 15.9
Text2 = 15000
Case 16 To 20.9
Text2 = 19000
End Select
merci

6 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
Bonjour,
Une textbox contient du texte (type string)
Il te faut donc faire tes tests de select case, non sur la propriété Text, mais sur la valeur numérique que représente sa valeur string.
Ouvre ton aide VB6 sur les mots Val, Csing, Cdbl, etc ...
Si la saisie est faite avec un point comme séparateur décimal, Val devrait alors faire seul ton "affaire"

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
L'expression de tes conditions est par ailleurs ici assez maladroite pour deux raisons.
- raison 1 : solutions de continuité entre, par exemple et entre autre : 15.9 et 16
- raison 2 : l'intérêt d'un select case est que l'on sort du "select" dès qu'une condition est réunie. Je te laisse donc réfléchir (facile) sur une démarche bien plus adroite, bien plus rapide, et sans solutions de continuité.
Tout cela : en plus de ce qui a été dit dans mon message précédent.

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Messages postés
23
Date d'inscription
samedi 29 janvier 2011
Statut
Membre
Dernière intervention
8 avril 2013

Bonjour
merci pour ton Conseil peux tu me modifier ce code ou y a t-il un autre solution pour boutir
aux resultas cherches outre que select case
merci
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
Je veux te voir au moins essayer sur les bases que je t'ai indiquées !

Au moins pour ce qui est de la conversion en numérique !
Relis mon premier message et ouvre vite ton aide VB6 et lis
Je n'interviendrai qu'après avoir constaté cet effort minimum de chez minimum (même si tu te plantes. Je VEUX te voir faire ce geste).
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Messages postés
23
Date d'inscription
samedi 29 janvier 2011
Statut
Membre
Dernière intervention
8 avril 2013

salut
MSDN n'est pas installe malheuresment
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
Alors installe-la.
Désolé pour toi, mais lis-donc ce que j'ai écrit à ce sujet dans ma signature
MSDN est indispensable. Et si son absence t'arrête pour une difficulté aussi petite que celle ici exposée, qu'en sera-t-il (te rends-tu compte ?) pour ce qui est moins ultra-simple ? Tu viendras ici pour chaque petit "bobo" que tu ressens du fait d'une installation incomplète ?
Ce n'est pas sérieux !

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.