Discussion :

[Manon26]

Bonjour,

J'ai fait un petit userform de dimensionnement mais j'ai un problème au moment des calculs. La virgule affichée n'est pas reconnue comme la séparation des décimales et entiers. Comment changer ce paramètre?

[Vince]

Paramètres régionaux de Windows ???

Essaie d'être plus précise sur ton problème.

[Daniel.C]

Bonjour,

Un exemple pour un textbox :

Code :

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

Me.TextBox1.Text = Replace(Me.TextBox1.Text, ",", ".")

Noe que le résultat sera du texte. Il faudra le transformer en numérique pour pouvoir s'en servir :

Code :

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

Range("A1").Value = CDbl(Replace(Me.TextBox1.Text, ",", "."))

Tu n'as pas à te préoccuper du symbole décimal Excel. Le "." VBA sera automatiquement transposé en "." ou ",".

[Invité]

Pour tenir compte des paramètres régionaux de Windows:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function ConverNumerique(V) As Double
Dim vl
vl = Replace(V, ",", ".")
If IsNumeric(vl) Then
    ConverNumerique = Val(vl)
    Exit Function
End If
vl = Replace(vl, ".", ",")
If IsNumeric(vl) Then
    ConverNumerique = Val(vl)
    Exit Function
End If
End Function

Code :

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

1
2
3
4
Sub test()
Debug.Print ConverNumerique("1.5")
Debug.Print ConverNumerique("1,5")
End Sub

[Manon26]

Merci de vos réponse mais ce n'est pas dans le code que ça pose probleme

En gros, quand je suis dans le code il n'y a pas de problème donc je souhaite garder les points et les virgules comme c'est mais en exécution, il ne reconnait pas les virgule comme un caractère numérique mais comme du texte (comme sur l'image) donc il prend comme valeur de la TextBox le chiffre avant la virgule mais pas le tout.

J'ai essayé en changeant les paramètres d'édition d'excell mais ça ne change rien.

[Docmarti]

Pour tenir compte des paramètres régionaux de Windows:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function ConverNumerique(V) As Double
Dim vl
vl = Replace(V, ",", ".")
If IsNumeric(vl) Then
    ConverNumerique = Val(vl)
    Exit Function
End If
vl = Replace(vl, ".", ",")
If IsNumeric(vl) Then
    ConverNumerique = Val(vl)
    Exit Function
End If
End Function

Code :

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

1
2
3
4
Sub test()
Debug.Print ConverNumerique("1.5")
Debug.Print ConverNumerique("1,5")
End Sub

Il serait préférable de ne pas utiliser VAL dans cette excellente fonction car VAL ne reconnait pas la virgule comme symbole décimal et va donc supprimer tout ce qui suit la virgule.

[djamat]

Bonjour Manon26,

Je suis debutant mais as tu regarde dans panneau de conf/option regionale et linguistique/1er onglet personnaliser/ ? a cet endroit tu peux changer les parametres. BOn ca marchera de ton cote mais cote client faudrait faire la meme ^^