Obliger saisie dans TextBox en chiffres, a partir du nombre 0 jusqu'au 8

Odesta

XLDnaute Impliqué

• 30 Septembre 2011

• #2

Re : Obliger saisie dans TextBox en chiffres, a partir du nombre 0 jusqu'au 8

Bonjour

Je pense qu'une formule du genre

Si (le contenu du texte box n'est pas un nombre) ou (le contenu du texte box est inférieur à 0 ou supérieur à 8) alors
(supprimer le contenu du texte box)

Cela fonctionne assez bien. On peut même rajouter un message pour mensionner de ne mettre que des heures entre 0 et 8.

Une nuance toutefois : il est bon de rajouter un (tranformer les "." en ",") car les utilisateurs aiment bien utiliser le point du clavier numérique car le "." transformera un "long" en "string" (sauf réglage spécifiques de votre Excel)


Cdt
Olivier

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 30 Septembre 2011

• #3

Re : Obliger saisie dans TextBox en chiffres, a partir du nombre 0 jusqu'au 8

Bonjour,

Code:

Private Sub TextBox1_Change()
If Len(TextBox1) > 1 Then TextBox1 = Left(TextBox1, 1)
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr(1, "012345678", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

A+
kjin

 

Vote positif 0 Vote négatif

Odesta

XLDnaute Impliqué

• 30 Septembre 2011

• #4

Re : Obliger saisie dans TextBox en chiffres, a partir du nombre 0 jusqu'au 8

Hello Kjin

.(avec et sans décimales)

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

B

Bernard-Louis

XLDnaute Occasionnel

• 30 Septembre 2011

• #5

Re : Obliger saisie dans TextBox en chiffres, a partir du nombre 0 jusqu'au 8

Merci Odesta, KJIN,

Le problème que j'ai avec le code de KJIN :
Il ne me prend pas 0,5 heure et il ne bloque pas la saisie si j'inscris 10 heures par exemple.
Quelle serait la solution ?
Merci pour l'aide

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 30 Septembre 2011

• #6

Re : Obliger saisie dans TextBox en chiffres, a partir du nombre 0 jusqu'au 8

Re, sakut Odesta,

Bernard-Louis à dit:

Il ne me prend pas 0,5 heure

Cliquez pour agrandir...

Effectivement, j'ai zappé cette partie

Bernard-Louis à dit:

et il ne bloque pas la saisie si j'inscris 10 heures par exemple.

Cliquez pour agrandir...

Là par contre je m'étonne !

Nouvelle mouture...

Code:

Private Sub TextBox1_Change()
If Val(TextBox1) > 8 Then TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr(1, "0123456789,", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

...qui n'empêchera pas d'inscrire 0,84562, alors quoi fait-on ?
A+
kjin

 

Vote positif 0 Vote négatif

B

Bernard-Louis

XLDnaute Occasionnel

• 30 Septembre 2011

• #7

Re : Obliger saisie dans TextBox en chiffres, a partir du nombre 0 jusqu'au 8

Merci KJIN,

C'est ok comme cela.
je formate la colonne "Source" qui reçois les données du formulaire pour arrondir 0,84562 à 1 et 0,1234 à 0,5.
Merci encore et bon WE

 

Vote positif 0 Vote négatif