textboxRésolu

Question

bonjour à tous,
je suis débutant en vba j'ai un petit problème a mon avis pas très difficile
j'ai une textbox je rentre une valeur dans celle-ci et je souhaite que la macro me dise si la valeur entrée est compris entre les borne que je lui est donné 
je vous mets le début de mon programme vous allez peut être mieux comprendre 

sub test()
Dim var As integer
var = TextBox1.value
If 0 <= var <= 20 Then
message qui me dit si la valeur est comprise ou pas dans les bornes
Else: Exit Sub
End If
End Sub<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
voila je vous remerci d'avance
a+++

cs_Exploreur · Accepted Answer

Salut,

Essaye cela : 

Private Sub Command1_Click()


Dim var As Integer
var = CInt(Textbox1.Value)
If var <= 0 Or var <= 20 Then
MsgBox "Dans les bornes !"
'message qui me dit si la valeur est comprise ou pas dans les bornes
Else: MsgBox "Hors les bornes !"
End If


End Sub

Note : ATTENTION, dans ce code il n'y a pas de Test quand c'est un nombre décimal !


A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_matth72 · Answer

je viens de tester ton programme il marche a la perfection 
je te remerci 
a+

cs_Exploreur · Answer

Re,

Regarde bien le code et ne te contente pas QUE de faire un copier/coller, il faut comprendre ce que j'ai mis....C'est juste un conseil......C'est comme cela que l'on avance dans le Dev....

Aller...bon app, car j'ai les ventre qui gazouille.....

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_matth72 · Answer

ok  merci j'ai été dans l'aide pour savoir ce que signifier CInt pour me permettre de me débrouiller tout seul la prochaine fois encore merci

Textbox

4 réponses

Votre réponse

Discussions similaires