Discussion :

[jbelleng]

Bonjour à tous,

J'ai une nouvelle fois besoin de votre aide, j'espère que vous pourrai m'aider.

Dans mon formulaire j'ai 3 textbox dans un frame.
L'utilisateur rentrera un montant dans la première. J'ai verrouillé le format de la cellule comme suit

Code :

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

1
2
3
4
' n'autorise que les nombres positifs dans la txtbox 
Private Sub TxtCA_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("1234567890,", Chr(KeyAscii)) = 0 Or InStr(TxtCA.Value, ",") <> 0 And Chr(KeyAscii) = "," Then KeyAscii = 0: Beep
End Sub

L'utilisateur devra entrer le montant à chaque utilisation. Pas de problème jusqu'ici.

La textbox 2 est aussi un montant et verrouillée comme la précédente.
La troisième est un pourcentage (je ne sais pas comment la verrouiller au passage).

Or il peut arriver que l'utilisateur ne connaisse que le pourcentage ou le montant de la textbox 2.
Je souhaitais donc placer une formule pour calculer et remplir automatiquement la 3eme textbox.

Exemple:
textbox 1 CA: 10000
textbox 2 réduction: 500
Textbox 3 % réduction: ???

Ou:
Textbox1 CA: 10000
Textbox2 réduction??
textbox3 %réduction: 5%

Faut-il pribilégier l'utilisation d'une function ()...end function?

[mercatog]

Attention, les textbox retournent du texte

Code :

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

1
2
3
4
Private Sub TextBox2_Change()
 
If Val(TextBox1) <> 0 Then TextBox3 = Format(Val(TextBox2) / Val(TextBox1), "0.0%")
End Sub

[jbelleng]

Que veux tu dire? Que mes variables sont mal déclarées?

[mercatog]

Je n'ai pas vu de variables.
J'ai simplement dis que les TextBox retournent du texte (comme leur nom l'indique)

Exemple
On écrit un nombre dans TextBox1 et on récuppère le nombre saisi dans une feuille à l'aide du code suivant

Code :

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

1
2
3
Private Sub TextBox1_Change()
Range("A1") = TextBox1
End Sub

Si on écrit 1256 dans textbox1, on aura en A1 un texte 1256 (regarde le petit triangle en vert en A1)
D'où l'utilisation de la fonction Val

Essaies maintenant ce code

Code :

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

1
2
3
Private Sub TextBox1_Change()
Range("A1") = Val(TextBox1)
End Sub

[jbelleng]

Ah ok j'ai saisi, en gros il y a un risque de transférer des lettres dans des cases dédiées à des nombres.

J'ai essayé ton code, mais le problème c'est que si je fais ça je ne peux plus rien saisir dans la textbox pourcentage.