Discussion :

[bmeda72]

Bonjour à tous,

J'aimerais savoir comment on peut saisir en notation scientifique du type "x,xyzE-5" dans un textbox. Le code que j'ai me permets de ne saisir que des nombres decimaux simples.

Code :

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

1
2
3
4
5
6
7
Private Sub TextBox1_Change()
    On Error Resume Next
    If Not IsNumeric(Right(TextBox1, 1)) And Right(TextBox1, 1) <> "," Then
    MsgBox "Le caractère saisi n'est pas valide"
    TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
    End If
End Sub

Merci pour le coup de pouce.

[Pierre Fauconnier]

Bonjour

VBA reconnaît le format scientifique. Tu peux donc saisir 1.234E-5 dans un textbox et utiliser la fonction Val(Expression) pour convertir ta saisie en valeur numérique.

Code :

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

 If IsNumeric(TextBox1) Then MsgBox Val(TextBox1)

Si tu utilises ce code en saisissant 1.234E-5 dans un textbox, le message t'affichera 0.00001234

[bmeda72]

Merci,
Problème résolu