chiffre décimal dans une textbox

Version imprimable

31/07/2012, 14h59
panda78

chiffre décimal dans une textbox
Bonjour,
je souhaiterai envoyer un message d'erreur via une msgbox au cas où l'utilisateur entrerai un chiffre décimal avec un point et non une virgule dans un textbox, j'ai essayé ceci :
Code:

1 2 3 4 5 6 7 8 Dim i As Integer For i = 1 To 9 If Me.Controls("Textbox" & i) = "." Then MsgBox "entrez des chiffres à virgules (", ") et non à point" Exit Sub End If Next i
Mais ça ne marche pas, le but étant d'éviter un bug quand l'utilisateur entre un chiffre décimal avec un point et non une virgule. Merci

Bonjour,

Le plus simple est de modifier le séparateur décimal entré par l'utilisateur (point ou virgule) afin qu'il corresponde à celui du système (avec API). A mettre dans le module de ta Form, ici, le texbox s'appelle "TextBox1" :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
Private Declare Function GetSystemDefaultLCID _
                Lib "kernel32" () As Long
 
Private Declare Function GetLocaleInfo _
                Lib "kernel32" _
                Alias "GetLocaleInfoA" ( _
                ByVal Locale As Long, _
                ByVal LCType As Long, _
                ByVal lpLCData As String, _
                ByVal cchData As Long) As Long
 
Function SeparateurDecimal() As String
 
    Dim Tampon As String
    Dim LongTampon As Long
    Dim LCID As Long
 
    LCID = GetSystemDefaultLCID
 
    LongTampon = 255
 
    Tampon = String$(LongTampon, vbNullChar)
 
    LongTampon = GetLocaleInfo(LCID, &HE, Tampon, LongTampon)
 
    If LongTampon > 0 Then
 
        SeparateurDecimal = Left$(Tampon, LongTampon - 1)
 
    Else
 
        SeparateurDecimal = ","
 
    End If
 
End Function
 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
    If KeyAscii = 44 Or KeyAscii = 46 Then
 
        KeyAscii = Asc(SeparateurDecimal)
 
    End If
 
End Sub

Hervé.

31/07/2012, 15h16
fring
Bonjour,

Une solution éventuelle est de convertir automatiquement le point en virgule dans chaque TextBox via son évènement "KeyPress"
Code:

1 2 3 Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 46 Then KeyAscii = 44 End Sub
31/07/2012, 15h34
panda78

En effet c'est beaucoup mieux. Merci! :ccool: