Discussion :

[manouk]

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 :

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

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

[Qwazerty]

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

Code :

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

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

[manouk]

Merci ça marche parfaitement maintenant

[Qwazerty]

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