cs_erwan35
Messages postés57Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention21 avril 2006 16 sept. 2004 à 23:00
Salut,
A coté de ton textbox, tu peux mettre un label!
Voici le code:
Option Explicit
Private Sub Text1_Change()
If Text1.Text > 1 And Text1.Text < 40 Then
Label1.Caption = 500
ElseIf Text1.Text > 41 And Text1.Text < 80 Then
Label1.Caption = 800
Else
Label1.Caption = "dépassement"
End If
End Sub