Discussion :

[panda78]

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 :

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

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

[Theze]

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 :

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
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é.

[fring]

Bonjour,

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

Code :

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

1
2
3
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 46 Then KeyAscii = 44
End Sub

[panda78]

En effet c'est beaucoup mieux. Merci!