Pb lors de la saisie dans textbox

Version imprimable

1 pièce(s) jointe(s)

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:

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

Bonsoir,

Code:

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

bonjour

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

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

01/04/2008, 21h09
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...
02/04/2008, 09h23
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... :cry:

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!!..............
02/04/2008, 09h33
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:

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

1 pièce(s) jointe(s)

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:

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

02/04/2008, 11h20
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

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

Code:

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+

02/04/2008, 13h49
max81

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