Discussion :

[max81]

Bonjour,

Je travaille sur Excel VB pour développer un petit outil de tests statistiques (je suis débutant sur VB).

A un moment donné, je dois rentrer un % dans un textbox. Si je veux 10%, je saisis "0.1" ou "10%", et ça marche. En revanche, si je souhaite rentre 10,5%, les saisies "0.105" et "10.5%" ne fonctionnent pas... Pouvez vous m'aider ?

Merci
Max

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub TextBox1_AfterUpdate()
    Test2.TextBox1.Value = Format(Val(Test2.TextBox1.Value), "# ### ##0")
    If Not (IsNull(Test2.TextBox1.Value) Or Test2.TextBox1.Value = "") Then
        Test2.TextBox2.Value = Format(Val(Test2.TextBox3.Value) * Val(Test2.TextBox1.Value) / 100, "# ### ##0")
    Else: Test2.TextBox2.Value = ""
    End If
End Sub
 
Private Sub TextBox3_AfterUpdate()
    Test2.TextBox3.Value = Format(Test2.TextBox3.Value, "0.00%")
    If Not (IsNull(Test2.TextBox3.Value) Or Test2.TextBox3.Value = "") Then
        Test2.TextBox2.Value = Format(Val(Test2.TextBox3.Value) * Val(Test2.TextBox1.Value) / 100, "# ### ##0")
    Else: Test2.TextBox2.Value = ""
    End If
End Sub
 
Private Sub CommandButton1_Click()
    End
End Sub