Condition sur textbox

[plumazon]

Bonsoir


j'aimerai mettre une condition sur un textbox

ci joint fichier explicatif


Mille merci [file name=Classeur1_20060511220608.zip size=7690]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060511220608.zip[/file]

 

[lio]

Salut,

Private Sub CommandButton1_Click()
If Range('A2').Value - Val(TextBox1.Value) inf 0 Then
MsgBox 'attention'
Exit Sub
Else
Range('b2').Value = TextBox1.Value
End If
End Sub

Changer inf par le signe ad hoc

 

[porcinet82]

Salut Plumazon,

Il te suffit de modifier ton code de la manière suivante :

Private Sub CommandButton1_Click()
If Val(TextBox1.Value) < Cells(2, 1).Value Then
    MsgBox 'veuillez saisir une valeur supérieure au stock'
    Exit Sub
End If
Range('b2').Value = TextBox1.Value
End Sub

@+

Edition : Salut Lio, pas rafraichit

Message édité par: porcinet82, à: 11/05/2006 22:29

 

[plumazon]

....merci lio