Discussion :

[david 417]

Effectivement, un Textbox utilisé ainsi renvoie un string, non une valeur. Autant pour moi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Phil'oche]

Pauvre topic... ce n'est plus du déterrage, c'est de la profanation de tombe !

Déjà, regarde sur quel évènement ton code est exécuté... A l'entrée (_Enter = prise de focus) de ton textbox ??? Dès lors, tu peux passer Cancel à vrai, faux ou ce que tu veux, ça n'aura pas beaucoup d'effet...

[patricktoulon]

oui puré ca date !!
il y a pourtant un truc tres simple a faire et des exemples il y en a des tas dans le forum
tout simplement rendre impossible de taper autre chose que les chiffres de 0 a 9 et basta, pas besoins d'analiser dans le change ou quoi on bloque tout ce qui n'est pas numeric

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub