afficher un message si t2 supérieur à t1Résolu

Question

bonsoir


j'ai 2 textbox dans une form


t1 et t2 

dans t1 je met un chiffre et si dans t2  je met un chiffre supérieur à t1 je voudrais qu'il 
m'affiche un message en me disant que le chiffre dans t2 est supérieur à celui de t1
comment faire 
merci
petchy

cs_Exploreur · Accepted Answer

Salut,

Si tu n'attends pas de retour de réponse de la msgbox de ton utilisateur, fais comme cela :
If Val(TX3(0).Text) > Val(TX2(0).Text) Then
MsgBox "Nombres de jours superieur au jours de semaine !", vbOKOnly Or vbCritical, "Information utilisateur"
' Tu sort
 Exit sub 
End If

Après, je serai toi, je n'autoriserai ques des chiffres dans ton tx3(0).text, car imagine si ton utilisateur à fait un bon appéro et qui tappes : 14.25 ?

A+
Exploreur

 Linux a un noyau, Windows un pépin

jmfmarques · Answer

Salut,


 


le contenu d'une textbox toto est toto.txt et est sous forme de chaine de caractères.


La valeur numérique d'une chaîne de caractères s'obtient par l'utilisation de la fonction Val (ouvre ton aide en ligne sur ce mot).

Il ne te manque maintenant absolument rien pour faire ce que tu dois faire, sinon (sait-ton jamais) de regarder les opérateurs VB dans ton aide en ligne (notamment < et >).

jmfmarques · Answer

p)ardon (un e a disparu en chemin)
Lire 
le contenu d'une textbox toto est toto.text

cs_Nicko11 · Answer

Salut,

Il manque peut etre l'instruction Msgbox (voir l'aide aussi) pour afficher des messages. Mais peut etre que notre ami la connaissait deja.
Pour ne pas tuer la volonté de JMF (faire en sorte que les gens trouvent par eux- meme), j'en dirai pas plus.

A+

cs_Exploreur · Answer

Bonjour à tous,
 
Je rajouterai Jmfmarques, que suivant si il mets un numérique entier ou un décimal, il faudrat qu'il en tienne compte...

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_petchy · Answer

salut à vous
merci de vos réponses qui m'ont bien aidé ;)
voila je que j'ai fait
Dim a
If Val(TX3(0).Text) > Val(TX2(0).Text) Then
a = MsgBox("Nombres de jours superieur au jours de semaine !", vbCritical, "ERREUR")
End If
si quelqu'un a mieux,je prends
petchy

cs_Exploreur · Answer

Salut,

A quoi te sers dans ce cas là : a ?

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Nicko11 · Answer

En effet, si tu enleve les parantheses et le "a = " ca fait la meme chose.

Sinon, bien joué. En voila un qui fait preuve d'autonomie et de jujotte. Pas besoin de pondre le code tout fait, t'as chercher tout seul.

jmfmarques · Answer

a ne sert en effet pas à grand chose dans ce cas.


Mais il semble que tu aies créé des groupes de textboxes indéxées, sans que l'on voie bien à quoi tu les utilises ici !

cs_petchy · Answer

Re
j'ai suprimer le "a"
en fait si les textbox sont indexé c'est qu'il y en a un par semaine
encore merci à vous
petchy

Afficher un message si t2 supérieur à t1

10 réponses

Votre réponse

Discussions similaires