Textbox

Bonjour

Je souhaiterai modifier ce code textbox dans un userform, de façon qu'il m'affiche un msg d'erreur si les données ne sont pas numériques

et aussi de forcer l'utilisateur a inséré que des nombre entier à partir de 1 jusqu'à 3650

Merci

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

'sep = 46 'si on veut que le point

'sep = 44 ''si on veut que la virgule

If KeyAscii <> sep Then

If KeyAscii = sep Or (KeyAscii < 47 Or KeyAscii > 57) Then KeyAscii = 0

End If

End Sub

Bonjour,

A tester :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    If CLng(TextBox1.Text) > 3650 Then

        MsgBox "Le nombre ne peux pas être supérieur à 3650 !"
        Cancel = True

    End If

    If CLng(TextBox1.Text) < 1 Then

        MsgBox "Le nombre ne peux pas être inférieur à 0 !"
        Cancel = True

    End If

End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Select Case KeyAscii

        Case 48 To 57 'ne rien faire
        Case 44, 46: KeyAscii = 0 'seulement des nombres entiers
        Case Else: KeyAscii = 0

    End Select

End Sub