VBA n'accepter qu'une valeur comprise entre 0 et 10

[fb62840]

Bonjour à toutes et tous,

Je voudrais, dans une textbox, obtenir que soit impérativement saisi dans une TextBox de formulaire un nombre compris entre 0 et 10.

J'ai bien vu des codes utilisant les ASCII mais ils proposaient une valeur comprise entre 0 et 9 pas de 0 à 10

Merci pour votre aide

 

[Pierrot93]

Re : VBA n'accepter qu'une valeur comprise entre 0 et 10

Bonjour,

essaye peut être ceci :

Option Explicit
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0: Exit Sub
    If CDbl(TextBox1 & Chr(KeyAscii)) > 10 Then KeyAscii = 0
End Sub

bon après midi
@+

Edition : bonjour Hasco🙂

 

[Guest]

Re : VBA n'accepter qu'une valeur comprise entre 0 et 10

Bonjour,

Une des nombreuses possibilité:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr(1, "0123456789", Chr(KeyAscii)) = 0 Or Val(Trim(TextBox1) & Chr(KeyAscii)) > 10 Then KeyAscii = 0
End Sub

A+

[Edit] Bing Pierrot🙂 et grand Salut🙂

 

[fb62840]

Re : VBA n'accepter qu'une valeur comprise entre 0 et 10

Bonjour à tous les deux,

Merci pour ces propositions.

Il me reste un souci,

avec ce code :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr(1, "0123456789", Chr(KeyAscii)) = 0 Or Val(Trim(TextBox1) & Chr(KeyAscii)) > 10 Then KeyAscii = 0
End Sub

Si je cherche à saisir par exemple 11 seul le 1er 1 est saisi, serait-il possible de faire en sorte que rien ne soit saisi en cas d'erreur ? (j'insèrerai une msgbox d'alerte pour indiquer à l'utilisateur qu'il doit entrer une saisie correcte).

 

[Guest]

Re : VBA n'accepter qu'une valeur comprise entre 0 et 10

Re

Et tu as essayer de comprendre et modifier par toi-même j'en suis sûr! Je serai heureux de t' aider à corriger le fruit de tes essais.

A+

 

[fb62840]

Re : VBA n'accepter qu'une valeur comprise entre 0 et 10

J'ai pensé à ajouter ça au code :

If CDbl(TextBox1 & Chr(KeyAscii)) > 10 Then TextBox1.Value = ""

Mais ça ne marche pas

 

[Guest]

Re : VBA n'accepter qu'une valeur comprise entre 0 et 10

Re,

Alors pour ne pas faire un usine à gaz dans KeyPress on s'y prend autrement:

Private Sub TextBox1_Change()
If Val(Trim(TextBox1)) > 10 Then
    TextBox1 = ""
    MsgBox "le message d'avertissement"
End If
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr(1, "0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

A+

 

[laetitia90]

Re : VBA n'accepter qu'une valeur comprise entre 0 et 10

bonjour tous🙂🙂🙂

a la place textbox plus simple mettre une combobox a mon avis!!

Private Sub UserForm_initialize()
 For i = 0 To 10: ComboBox1.AddItem i: Next
End Sub

dans proprietée combo... pour bloque ecriture
dans style tu mets a 2-fmstyleDropdownList

 

[néné06]

Re : VBA n'accepter qu'une valeur comprise entre 0 et 10

bonjour Fb62840, Hasco,Pierrot,

Je propose ma version ?

A+

René

Edit: Bonjour Laeticia

 

[Guest]

Re : VBA n'accepter qu'une valeur comprise entre 0 et 10

Re,

Bonjour Laetitia🙂
Ou un spinButton avec min=0 et max=10 accompagné d'un label et:

Private Sub SpinButton1_Change()
Label1.Caption = SpinButton1
End Sub

Ou 10 boutton d'options...arf😉

A++

 

[fb62840]

Re : VBA n'accepter qu'une valeur comprise entre 0 et 10

Merci beaucoup,

Cela fonctionne parfaitement maintenant.

Vous m'avez rendu un grand service.

 

[Si...]

Re : VBA n'accepter qu'une valeur comprise entre 0 et 10

salut

erreur 😱