select case

Question

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

ucfoutu · Answer

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.

ucfoutu · Answer

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.

abouassem · Answer

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

ucfoutu · Answer

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.

abouassem · Answer

salut
MSDN n'est pas installe malheuresment

ucfoutu · Answer

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.

Select case

6 réponses

Votre réponse

Discussions similaires