Textbox valeur maximale à ne pas dépasser

Bonjour

Je suis sur ce problème depuis hier et je n'arrive pas à le résoudre

Dns l'USF joint, le textbox 18 sert à modifier la note de la donnée choisie dans le combo

Dans le textbox 2, la valeur maximale autorisée. Si on la dépasse, message d'erreur et on est invité à recommencer la saisie.

Ça marche pas mal, tant qu'on saisie des nombres entiers ... Par contre, par exemple pour la "donnée 3", on ne devrait pas pouvoir dépasser 5 mais si on écrit 5,3 ou 5.3 ça valide la saisie alors que ça ne devrait pas puisque dépasse 5 ...

J'ai cherché et cherché sur le web ... en vain

Merci d'avance

A tester :

Bonjour melch

Et merci ... ça me semble fonctionner parfaitement.

Bonne journée

J'ai testé un peu l'USF, et lorsqu'on ne met rien dans la textbox et qu'on valide, il y a un message d'erreur.

Voilà un code que tu peux mettre pour ton bouton valider :

Private Sub CommandButton1_Click()

    ' pour garder la donnée en cours de modification
    p = ComboBox1
    'remplace les infos existantes dans la BD
    Ligne = Sheets("SQ").[A:A].Find(ComboBox1, LookIn:=xlValues).Row
    If Me.TextBox18 <> "" Then
    Sheets("SQ").Cells(Ligne, 3) = CDbl(Me.TextBox18)
    MsgBox "Note enregistrée avec succès"
    UserForm_Initialize
    ' pour revenir sur la donnée qui vient d'être modifiée
    ComboBox1 = p
    ComboBox1_Click
End If

End Sub