Nombre négatif dans Textbox

Bonjour,
Voici mon problème, j'ai crée 3 textbox dans une Userform. L'utilisateur rentre des valeur qui peuvent être soit positive, soit négative. Le problème est pour les valeurs négative si je rentre "-1.2076" dans la textbox ça prend en compte "-12076".

Voici le code de l'UserForm:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub TextBox1_Change() coeff = coeff_camp.TextBox1.Text Worksheets("Gain niveau" & nbr_gain_niveau & " " & bande).Activate If Rx_ok = True Then If sorti_inter = True Then Cells(21, 9).Value = coeff Else Cells(18, 9).Value = coeff End If ElseIf Rx_ok = False Then Cells(21, 9).Value = coeff End If End Sub

---

Pourquoi mon nombre décimal est pas pris encompte lorsque je rentre un nombre décimal?
Merci d'avance pour votre aide

Salut
Ca vient surement du séparateur décimal, bien que tu dis que ça fonctionne avec un nombre positif.
Essai cela

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub essai() Dim Coef As Double   If IsNumeric(TextBox1.Text) Then Coef = CDbl(TextBox1.Text) Else Coef = Val(TextBox1.Text) End If   Cells(2, 2).Value = Coef End Sub

---

En règle général il est préférable de définir ses variables ici coef sera un Double et il est donc également préférable de faire les transtypage, je sais que VBA le fait .. mais c'est aussi pour ça qu'on a des surprise.
Au moins si ton transtypage n'est pas possible tu auras une erreur.

A++
Qwaz

Merci ça marche parfaitement maintenant

Juste un petit truc
Tout ça est en rapport avec la configuration local du pc, le séparateur décimal peut être diffèrent d'un poste a l'autre, le code n'est donc pas sur de fonctionner dans tous les cas, il faudrait tester en changeant ton type de séparateur décimal.
[Edit]J'ai tester ça a l'aire de fonctionner tout le temps[/Edit]
Donc bonne journée
A++
Qwaz