VBA - Bloquer la saisie d'une TextBox entre deux numeriques [Résolu]

Messages postés
24
Date d'inscription
jeudi 4 août 2011
Dernière intervention
24 août 2011
- - Dernière réponse : Nat44200
Messages postés
24
Date d'inscription
jeudi 4 août 2011
Dernière intervention
24 août 2011
- 9 août 2011 à 11:50
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.
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Contributeur
Dernière intervention
11 avril 2018
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 98 internautes nous ont dit merci ce mois-ci

Commenter la réponse de ucfoutu
Messages postés
24
Date d'inscription
jeudi 4 août 2011
Dernière intervention
24 août 2011
0
Merci
Ouha !!! Merci de ta rapidite !!!

C'est excatement ce que je voulais !!!!
Commenter la réponse de Nat44200

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.