imposer une valeure maximale dans un textbox

T

TempusFugit

XLDnaute Impliqué

• 7 Octobre 2011

• #2

Re : imposer une valeure maximale dans un textbox

Bonjour


Essaie de voir si tu trouves de quoi t'aider dans les liens présents en bas de page, dans les Discussions similaires.

 

Vote positif 0 Vote négatif

C

Cefiroth

XLDnaute Nouveau

• 7 Octobre 2011

• #3

Re : imposer une valeure maximale dans un textbox

Oui, effectivement j'avais mal cherché sur le forum, après quelques adaptations j'ai réussi à obtenir ce que je voulais.

Merci.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 7 Octobre 2011

• #4

Re : imposer une valeure maximale dans un textbox

Bonjour,

on peut aussi le faire ainsi, code à placer dans le module de la feuille concernée ou dans celui de l'USF :

Code:

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

en mettant la propriété "MaxLength" du "textbox" sur 1..

Bon après midi
@+

 

Vote positif 0 Vote négatif

C

Cefiroth

XLDnaute Nouveau

• 7 Octobre 2011

• #5

Re : imposer une valeure maximale dans un textbox

Merci Pierrot pour la réponse, personnellement j'ai utilisé le code suivant :

If TextBox10.Value > 5 Then
Attention.Show
TextBox10.Value = ""
End If

Bonne après midi !

 

Vote positif 0 Vote négatif