VBA - Bloquer la saisie d'une TextBox entre deux numeriquesRésolu

Question

Bonjour a tous ,

Pour un projet je realise une application VBA.
Dans cette application VBA j'ai cree un USF. Dans cette USF j'ai une TextBox que j'ai bloquer pour n'avoir que des numeriques et avec deux chiffre apres la virgule maximun:

Private Sub TextBox1_Change()
    If Right(TextBox1, 1) "." Or Right(TextBox1, 1) "," Then TextBox1.MaxLength = Len(TextBox1) + 2
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Dim allowedKeys As String
    allowedKeys = "0123456789,." & Chr(8)
    If InStr(allowedKeys, Chr(KeyAscii)) 0 Then KeyAscii 0
End Sub

Mon probleme maintenant est que je souhaite limiter la saisie de ma TextBox1 entre deux numeriques 0 et 1 (par exemple 0.25 ou 0.99 mais pas 1.01).

Merci beaucoup de votre aide.

ucfoutu · Accepted Answer

Bonjour,

comme ceci (exemple) ?
Private Sub TextBox1_Change()
  Static anc As String
  If Val(Replace(TextBox1.Text, ",", ".")) > 0.99 Then TextBox1.Text anc Else anc TextBox1.Text
End Sub


____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP

Nat44200 · Answer

Ouha !!! Merci de ta rapidite !!!

C'est excatement ce que je voulais !!!!

VBA - Bloquer la saisie d'une TextBox entre deux numeriques

2 réponses

Votre réponse