Discussion :

[jffaber]

Bonjour,

je voudrais savoir comment n'accepter que des entiers dans une textbox

merci d'avance de votre aide

[ouskel'n'or]

Dans l'exit de ton textbox, tu mets

Code :

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

If isnumeric(textbox1.value) then textbox1 = Int(textbox1.value)

Si tu veux ajouter un message pour prévenir...

Code :

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

1
2
3
4
5
6
7
8
If isnumeric(textbox1.value) then
     If int(textbox1.value) < Textbox1.value then
          Msgbox "J'ai dit des entiers, patate !"
          Cancel = True 'empêche de sortir du textbox
        else
          Cancel = false
     endif
endif

A+

[jffaber]

salut,

j'ai un problème avec le code, je l'ai modifié un peu mais c pas mieux.

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(TextBox3.Value) < TextBox3.Value Or 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 entiers!"
     Cancel = True 'empêche de sortir du textbox
End If

pour n'importe quel nombre, il renvoi "j'ai dit des entiers !!!!!!!!"
C'est donc un problème de condition mais ya quelque chose qui m'échappe.

[ouskel'n'or]

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+

[jffaber]

une validation générale pourrai ^tre mieux car j'aurai plusieurs cas similaire aprés.

[Abed_H]

Bonjour
voici une technique très pratique pour n'autoriser que la saisie de nombres entiers dans un TexteBox

Code :

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

1
2
3
4
5
6
 Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
     ' Si la valeur n'est pas comprise entre 0 et 9 et qu'elle n'est pas un backspace 
       If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then
            KeyAscii = 0 'on annule la pression sur la touche
        End If
 End Sub

Bonne journée à vous tous.

[jffaber]

merci abed H

parfais la technique

bonne journée

[ouskel'n'or]

Tu as également la solution de vérifier le caractère numérique de la saisie

Code :

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

1
2
3
4
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
     If keyascii = 8 then exit sub 'permet de quitter le contrôle même vide
     if not chr(Keyascii) like "#" then KeyAscii = 0
End Sub