Valeur maximale d'un textbox
Résolu/Fermé
SpcCwb
Messages postés
65
Date d'inscription
mardi 7 mai 2013
Statut
Membre
Dernière intervention
26 novembre 2020
-
Modifié le 28 août 2018 à 17:12
SpcCwb Messages postés 65 Date d'inscription mardi 7 mai 2013 Statut Membre Dernière intervention 26 novembre 2020 - 28 août 2018 à 17:17
SpcCwb Messages postés 65 Date d'inscription mardi 7 mai 2013 Statut Membre Dernière intervention 26 novembre 2020 - 28 août 2018 à 17:17
A voir également:
- Valeur maximale d'un textbox
- Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
- Valeur ascii - Guide
- #Valeur excel somme - Guide
- Liste de valeur excel - Guide
- La valeur saisie doit être numérique - Forum Bureautique
1 réponse
Zoul67
Messages postés
1959
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
30 janvier 2023
149
Modifié le 28 août 2018 à 17:27
Modifié le 28 août 2018 à 17:27
Bonjour,
Tu peux essayer
Je ne suis pas sûr que MaxLength=3 soit judicieux avec des nombres décimaux
A+
Tu peux essayer
Private Sub Textbox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) TextBox3.MaxLength = 3 Select Case KeyAscii Case 44, 46 ' que l'on frappe une virgule ou un point If InStr(TextBox3.Text, ",") Then 'si déjà une virgule présent KeyAscii = 0 'on ne permet pas deux virgules Else ' sinon KeyAscii = 44 'on force la une virgule End If Case 48 To 57 'on laisse passer car ce sont des chiffres If CDbl(TextBox3.Value & (KeyAscii - 48)) > 100 Then MsgBox "Valeur maximale = 100" KeyAscii = 0 'on ne permet pas de valeur supérieure à 100 End If Case Else KeyAscii = 0 'on ne laisse pas passer End Select End Sub
Je ne suis pas sûr que MaxLength=3 soit judicieux avec des nombres décimaux
A+
Modifié le 28 août 2018 à 17:18
J'ai juste changer le numéro de la textbox de cette ligne: en
Parfait!
Effectivement maintenant je peux retirer MaxLength=3
Merci encore!