Textbox.value à sortir en numérique

[phlaurent55]

Bonjour le forum et Meilleurs Voeux à toutes et tous

je coince sur un petit problème

Je dois récupérer la valeur d'une TextBox au cours d'une procédure mais.........

la valeur de la TextBox sera entrée par des enfants en bas âge ( 5 à 6 ans) ce qui laisse supposer qu'il y a un risque de trouver n'importe quoi dans cette zone ..............du numérique et du non-numérique s'ils utilisent les touches de la rangée supérieure du clavier en croyant bien-faire

J'aimerais
- si textox.value = "n'importe quoi" ou inférieure à 5 alors TextBox.value = 5
- If TextBox.value >= 5 and TextBox.value <20 Then.... là c'est bon
- If TextBox.value >20 la valeur doit rester =20

Merci d'avance pour le petit coup de pouce
Philippe

 

[Pierrot93]

Re : Textbox.value à sortir en numérique

Bonjour Phlaurent

regarde le code ci dessous :

If Not IsNumeric(TextBox1.Value) Or TextBox1.Value < 5 Then
    TextBox1.Value = 5
    ElseIf TextBox1.Value > 20 Then TextBox1.Value = 20
End If

@+

 

[kiki29]

Re : Textbox.value à sortir en numérique

Jour Bon, des exemples de saisies numériques entières,décimales,alpha etc , à toi de l'adapter à ton cas

 

[phlaurent55]

Re : Textbox.value à sortir en numérique

Un grand merci à vous deux, ça répond exactement à ce que j'attendais

 

[phlaurent55]

Re : Textbox.value à sortir en numérique

j'en remet une couche,

serait-il possible , en vba , à partir d'une instruction, de pouvoir verrouiller le clavier en Majuscules ?
Ce qui permettrait d'utiliser les "touches chiffres" dans la rangée supérieure du clavier ?

merci d'avance

 

[Pierrot93]

Re : Textbox.value à sortir en numérique

Re

regarde ce fil peut être une solution pour ton problème.

https://www.excel-downloads.com/threads/forcer-caps-unlock.83321/

@+

 

[kiki29]

Re : Textbox.value à sortir en numérique

Re un exemple à adapter.L'état des leds est modifié