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

[max81]

Ca ne fonctionne tjs pas. Voici mon code et un fichier test. Peux tu avoir la gentillesse de me dire ce que je dois changer..? Un grand merci pour ton aide :

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(Val(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]

Bon..
Ecoute :
1) la machine sur laquelle je te réponds (mon PC) n'a pas Excel (qui se trouve sur un portable actuellement mobilisé par quelqu'un d'autre)
2) même si la machine sur laquelle je me trouve possédait Excel, je n'ouvrirais certainement pas un document Xls

Il me suffit de ton code, que je te demande d'épurer ainsi :

toto = test2.Textbox1.value (on lit une fois pour toutes)
puis remplacer tous tes test2.Textbox1.value par toto
et pour que les choses soient encore plus claires :
dis-moi ce que tu as exactement dans toto et ce que tu as exactement dans Test2.Textbox3 et dans test2.Textbox2

[ouskel'n'or]

Je ne comprends pas le pb. Si tu remplaces le point par une virgule, ça donne bien ce que tu demandes

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub TextBox3_AfterUpdate()
Dim valeur As Double
    Test2.TextBox3.Value = Replace(Test2.TextBox3.Value, ".", ",")
    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

Et si tu ajoutes % lors de la saisie, ça ne modifie pas la donnée saisie...
Précise ta demande
A+

[max81]

c'est bon j'ai trouvé en passant par une variable. Merci ucfoutu !