Format textbox Point à la place de la virgule

Version imprimable

1 pièce(s) jointe(s)

Bonsoir,

J'ai formulaire avec trois TextBox "Débit, Crédit et contrevaleur en Franc"
Lorsque je met un point à la place de la virgule aux textbox débit ou crédit J'ai un message d'erreur "Incompatibilité de type".

Mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub TextBoxDébit_Change() If TextBoxDébit <> "" Then TextBoxContValeur = Format(TextBoxDébit * 6.55957, "0.00 F") TextBoxCrédit.Visible = IIf(TextBoxDébit <> "", 0, 1) Label6.Visible = False End Sub Private Sub TextBoxCrédit_Change() If TextBoxCrédit <> "" Then TextBoxContValeur = Format(TextBoxCrédit * 6.55957, "0.00 F") TextBoxDébit.Visible = IIf(TextBoxCrédit <> "", 0, 1) Label5.Visible = False End Sub
Je vous remercie d'avance.
Un fichier valant mieux qu'un long discours, veuillez voir la pièce jointe.

Cordialement

C'est parce que, selon tes options régionales dans Windows, ce n'est pas le point qui est le séparateur décimal. C'est la virgule.

Code:

1
2
3
4
5
6
7
8
9
10
If Trim(TextBoxDébit) <> "" Then
If Not IsNumeric(TextBoxDébit) Then
 MsgBox TextBoxDébit & " n'est pas pas une valeur numerique"
 Exit Sub
End If
End If
 
 If Trim(TextBoxDébit) <> "" Then TextBoxContValeur = Format(TextBoxDébit * 6.55957, "0.00 F")
 TextBoxCrédit.Visible = IIf(TextBoxDébit <> "", 0, 1)
 Label6.Visible = False

Bonjour,

Il existe un tuto de Didier GONARD très détaillé consacré à la saisie des valeurs numériques dans un textbox à cette adresse http://didier-gonard.developpez.com/...e-dans-texbox/

Dans votre cas une solution consisterait à utiliser le contrôle de saisie défini par Didier :

Code:

1
2
3
4
5
6
7
8
Private Sub TextBoxDebit_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("1234567890,-", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
 
 
Private Sub TextBoxCredit_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("1234567890,-", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Il faudra néanmoins contrôler le nombre de séparateurs décimaux saisis dans les textbox en modifiant votre code dans chaque textbox_change

Une solution est celle-ci :

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
 
Private NbSeparateurs As Integer
Private I As Integer
 
Private Sub TextBoxDebit_Change()
 
    NbSeparateurs = 0
    For I = 1 To Len(TextBoxDebit)
         If Mid(TextBoxDebit, I, 1) = "," Then NbSeparateurs = NbSeparateurs + 1
    Next I
 
    If TextBoxDebit <> "" And NbSeparateurs <= 1 Then
                TextBoxContreValeurDebit = Format(TextBoxDebit * 6.55957, "0.00 F")
          Else
                MsgBox ("Il ne peut y avoir deux séparateurs décimaux !")
                TextBoxDebit = Mid(TextBoxDebit, 1, Len(TextBoxDebit) - 1)
         Exit Sub
    End If
 
End Sub
 
Private Sub TextBoxCredit_Change()
 
    NbSeparateurs = 0
    For I = 1 To Len(TextBoxCredit)
         If Mid(TextBoxCredit, I, 1) = "," Then NbSeparateurs = NbSeparateurs + 1
    Next I
 
    If TextBoxCredit <> "" And NbSeparateurs <= 1 Then
                TextBoxContreValeurCredit = Format(TextBoxCredit * 6.55957, "0.00 F")
          Else
                MsgBox ("Il ne peut y avoir deux séparateurs décimaux !")
                TextBoxCredit = Mid(TextBoxCredit, 1, Len(TextBoxCredit) - 1)
         Exit Sub
    End If
 
End Sub

Nb : Pour la portabilité de votre code, n'utilisez pas de noms de variables ou d'objets avec des caractères accentués. Les objets ci-dessus ont été "désaccentués"

J'ai modifié votre UserForm pour mettre une contre-valeur pour le débit et le crédit

Cordialement.

03/05/2013, 07h44
apdf1

Bonjour Docmarti

Je te remercie je vais essayer de me dépatouiller avec ceci!

Je te souhaite une bonne journée

Max

J'ai eu un probleme similaire dernierement et j'ai utilisé ce petit code

Code:

1
2
3
4
5
Private Sub TextBox1_Change()
TextBox1.Text = Replace(TextBox1.Text, ".", ",")
 
 
End Sub

j’espère que ça peut t'aider

Mieux si ton fichier devra tourner sur differentes machines

Code:

1
2
3
4
5
6
7
8
9
 
Private Sub TextBox1_Change()
if Application.International(xlDecimalSeparator)="," then
TextBox1.Text = Replace(TextBox1.Text, ".", ",")
elseif Application.International(xlDecimalSeparator)= "." then
TextBox1.Text = Replace(TextBox1.Text, ",", ".")
end if
 
End Sub