Probleme de format de textbox

[n3Twork]

Bonjour

J'ai un petit probleme avec mon user forme

en effet jai un textbox dans lequel je bloque a 3 chiffre par ce code :

  If Not txbquantite.Value Like '###' Then
  MsgBox 'Le nombre quantite doit être un chiffre !', vbExclamation, 'Erreur Saisie'
      Exit Sub
    End If

Le probleme c'est que quand je rajoute une valeur comme par exemple '012' dans le cellule il me met '12' et je n'arrive pas a dire que si c'est un chiffre c'est bon avec 3 chiffre maximum ... car dans ce cas la il moblige a mettre 012 mais moi je voudrai mettre '1' ou '11' ou '111' maxi 3 chiffres ...

Si qlq peu m'aider j'espere avoir été assez clair 🙂

 

[PascalXLD]

Bonjour

essaies

If val(txbquantite) > 999 Then

MsgBox 'Le nombre quantite doit être un chiffre !', vbExclamation, 'Erreur Saisie'

Exit Sub

End If

 

[n3Twork]

Sa marche sauf que si je met des lettre il accepte ... il faudrai que je bloque a 3 chiffres surtout pas de lettres.

 

[Pierrot93]

Bonjour,

tu peux essayer aussi le code ci dessous

Private Sub TxtAnnee_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Select Case KeyAscii
Case Asc(0) To Asc(9)
Case Else
KeyAscii = 0
End Select

End Sub
Pense aussi a indiquer la propriété ci dessous
TxtAnnee.MaxLength = 3

Ca devrait marcher en l'état, enfin j'espère

Bonne journée