Private Sub lb_Click()
ms = InputBox("Enregistrement " & lb.List(, 0) _
& vbLf & " " & lb.List(, 1), "result1")
If ms = "" Then Exit Sub
If Not IsNumeric(ms) Or Val(ms) < 0 Or Val(ms) > 20000 Then
MsgBox "veuillez entrer un chiffre entre 0 et 20 000"
Exit Sub
End If
If InStr(ms, ".") + InStr(ms, ",") > 0 Then
MsgBox "Les nombres décimaux ne sont pas acceptés, veuillez entrer un nombre entier"
Exit Sub
End If
Range("K" & lb.ListIndex + 2) = ms
End Sub
Sub UserForm_Initialize()
lb.RowSource = _
Range("a2").Address & ":" & _
Worksheets("feuil1").Range("j" & Range("a2").End(xlDown).Row).Address
End Sub