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

[ucfoutu]

Bonsoir,

Code :

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

1
2
3
4
Private Sub Command1_Click()
  toto = "10,5"
  MsgBox Format(CCur(toto), "# ### ##0 %")
End Sub

[Le Pierre]

bonjour

il me semble qu'il y a une erreur de test que j'ai rectifié en gras :

Code :

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

1
2
3
4
5
6
7
Private Sub TextBox1_AfterUpdate()
    Test2.TextBox1.Value = Format(Val(Test2.TextBox1.Value), "# ### ##0")
    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

si tu saisis : 0.105 tu auras bien 10,50% dans TextBox3 avec la bonne valeur dans le TextBox2.

A plus

[ucfoutu]

ce qui par ailleurs me chagrine assez est ceci :
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 ?

Permettre ainsi n'importe quelle saisie (avezc tantôt le point, tantôt la virgule comme séparateur décimal) est toujours possible, oui mais...
A condition d'"harmoniser" à un moment ou à l'autre par la fonction replace, par exemple...

[max81]

Le Pierre, je te confirme qu'il n'y a pas d'erreur dans le test. Et la saisies de 0.105 (ou 0,105) ne fonctionne pas alors que la saisie de 0.10 fonctionne...

ucfoutu : pour l'instant, je fais bien attention de ne rentrer que des points. Comme je le disais dans mon post précédent, 0.1, ça marche, 0.105, ça ne marche pas.

Merci de votre aide!!..............

[ucfoutu]

Ah...

Si tu utilises le point comme séparateur décimal, ce n'est plus ccur, alors, qu'il faut utiliser, mais Val

Code :

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

1
2
3
4
5
Private Sub Command1_Click()
  Dim toto As String
  toto = "0.105"
  MsgBox Format(Val(toto), "# ### ##0.00 %")
End Sub