Tester une saisie numérique dans un textbox
Citation:
Envoyé par
ouskel'n'or
Effectivement, un Textbox utilisé ainsi renvoie un string, non une valeur. Autant pour moi.
Code:
1
2
3
4
5
6
7
8
9
10
11
| If IsNumeric(TextBox3.Value) Then
If Int(Val(TextBox3.Value)) < Val(TextBox3.Value) Or Val(TextBox3.Value) < 0 Then
MsgBox "J'ai dit des entiers !!!!!!!!!"
Cancel = True 'empêche de sortir du textbox
Else
Cancel = False
End If
Else
MsgBox "J'ai dit des valeurs !"
Cancel = True 'empêche de sortir du textbox
End If |
Mais tu pourrais aussi interdire le point et la virgule lors de la saisie et envoyer un beep ou un message le cas échéant. Seulement si tu n'as que quelques textbox. S'il y en a plusieurs, pour ma part je préfère toujours une validation générale.
Tu dis
A+
bonjour
Je suis nouveau sur ce forum et totalement novice en programmation VBA
Je cherche donc à apprendre. Je m'excuse par avance des "âneries" et erreurs grossières, mais avant d'être grand on est petit.
Je comprends le code qui a été tapé. J'ai donc intégré ce code dans mon petit "programme" mais là c'est le drame ça fonctionne pas. Ma très grande expérience en VBA ne me permet pas de comprendre où est mon erreur.
Please help me. :arf:
Voici le code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| Private Sub MONTANT_DU_PROJET_enter()
If IsNumeric(MONTANT_DU_PROJET_.Value) Then
If Int(Val(MONTANT_DU_PROJET_.Value)) < Val(MONTANT_DU_PROJET_.Value) Or Val(MONTANT_DU_PROJET_.Value) < 0 Then
MsgBox "J'ai dit des entiers !!!!!!!!!"
Cancel = True 'empêche de sortir du textbox
Else
Cancel = False
End If
Else
MsgBox "J'ai dit des valeurs !"
Cancel = True 'empêche de sortir du textbox
End If
End Sub |
