Citation Envoyé par ouskel'n'or Voir le message
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