USF Format numéric => Mess d'alerte en double

Version imprimable

13/03/2014, 14h30
mouftie

USF Format numéric => Mess d'alerte en double
Bonjour,
J'ai un USF avec des Textbox qui doivent être numérique.
Dans le Sub TbxY_Change j'ai mis :
Code:

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:

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
13/03/2014, 14h36
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.

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

Code:

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

13/03/2014, 15h14
MarcelG

SOURCES
Salut,

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

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/