Discussion :

[mouftie]

Bonjour,
J'ai un USF avec des Textbox qui doivent être numérique.
Dans le Sub TbxY_Change j'ai mis :

Code :

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

1
2
3
4
5
6
7
Private Sub TbxY_Change()
If Not IsNumeric(TbxY) Then
    MsgBox "Veuillez saisir des chiffres, svp"
    TbxY = ""
    TbxY.SetFocus
End If
End Sub

et si dans la saisie je mets des lettres, le message apparait 2 fois consécutivement.
dans le bouton Ok j'ai mis :

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
    Range("A1") = TbxY.Value
Unload Me
End Sub

sur tous les sites que j'ai fait, je vois le même code...
Quelqu'un peut-il m'aider svp ?
Merci

[MarcelG]

Bonjour mouftie,

Mieux vaudrait gérer l'évènement Exit de ta TextBox.
Car l'évènement Change gère tous les caractères.

Personnellement, je gère ces erreurs de saisie lors de l'activation du bouton de validation du formulaire (qui entraîne sa fermeture), en y intégrant une sortie de procédure.

[mouftie]

Bonjour Marcel
Merci pour ton intervention, j'y suis finalement parvenue.
Je mets l'ensemble de la procédure, si ça peut aidrer...

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
17
18
19
20
21
22
23
24
25
26
27
Private Sub Ok_Click()
If IsDate(TbxY) Then
    Else
        MsgBox "Veuillez saisir des chiffres,svp", vbExclamation, "ATTENTION"
        TbxY = ""
        TbxY.SetFocus
        Exit Sub
End If
    Range("A1") = TbxY.Value
Unload Me
End Sub
 
Private Sub Annul_Click()
Unload Me
End Sub
 
Private Sub TbxY_Change()
    Dim Valeur As Byte
    TbxY.MaxLength = 10 'nb caractères maxi autorisé dans le textbox
    Valeur = Len(TbxY)
        If Valeur = 2 Or Valeur = 5 Then TbxY = TbxY & "/"   'On saisit 15021981 et on a 15/02/1981
        TbxY.AutoTab = True
 
End Sub
Private Sub UserForm_Initialize()
TbxY.SetFocus 'Curseur actif à l'ouverture
End Sub

Je mets en résolu
Merci

[MarcelG]

Salut,

Je complète en t'indiquant que tu peux sélectionner toute la chaîne de ton Textbox (en erreur)

Code :

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

1
2
3
4
5
With TextBox1
    .SetFocus
    .SelStart = 0
    .SelLength = Len(.Text)
End With

issu du tutoriel de Sylkiroad

http://silkyroad.developpez.com/VBA/...serForm/#LII-E

D'autre part, pour forcer une valeur numérique dans un Textbox, l'excellent tutoriel de Didier Gonard

http://didier-gonard.developpez.com/...e-dans-texbox/