Discussion :

[Nokho]

Jai un userform qui contient plusieurs textbox. j'ai écrit une boucle qui me permet de ne faire qu'une saisie numérique sur les textbox. Cependant je l'ai mis sur l'événement Keypress mais ça marche pas donc je me suis dis que c'est l'événement qui "cloche".Merci!!!
Le code est:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim Ctrl As Control
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.TextBox Then
    If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End If
Next Ctrl
 
End Sub

[Philippe Tulliez]

Bonjour,
Tu peux utiliser l'événement KEYPRESS ou CHANGE du contrôle TEXTBOX
Je te conseille la lecture de ce document http://silkyroad.developpez.com/VBA/ControlesUserForm et tout particulièrement le chapitre sur les textbox http://silkyroad.developpez.com/VBA/...serForm/#LII-E

[Didier Gonard]

Bonjour,

Tu peux regarder cette approche aussi


Obliger une saisie numérique dans une TextBox

cordialement,

Didier

[Nokho]

Merci. je vois bien ce que vous dites. Mais le tutorial "Obliger une saisie numérique m'a beaucoup aidé.