Condition sur textbox

L

lio

XLDnaute Occasionnel

• 11 Mai 2006

• #2

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

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 11 Mai 2006

• #3

Salut Plumazon,

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

Code:

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

 

Vote positif 0 Vote négatif

P

plumazon

XLDnaute Occasionnel

• 11 Mai 2006

• #4

....merci lio

 

Vote positif 0 Vote négatif