chiffre à virgule dans un textbox

[rem$]

bonjour a tous

j'ai un petit pb avec les chiffres à virgules dans mon textbox
je croyais pouvoir venir a bout facilement de ce calcul mais ca n'est pas le cas et pourtant ca a l'air tres simple alors je me trouve tres bete de pas avoir reussi tout seul.......

uni peut prendre des valeurs contenues entre 0 et 1 à 1 decimale 0.1/0.2...0.9
vieu peut prendre des valeurs comprises entre 0.8 et 1.50 à 2 decimale 0.85.../....1.10.../...1.25....

voici mon code

Private Sub CommandButton1_Click()
Dim valeur As Integer
Dim uni As Integer
Dim vieu As Integer
valeur = TextBox1.Value
uni = TextBox2.Value
vieu = TextBox3.Value
TextBox4.Value = ((valeur / vieu) * uni)
End Sub



merci de votre aide
@ bientôt
Rem$

 

[Evelynetfrancois]

bonsoir REMS

je sais pas si c'et LA soluce mais c'est une astuce
bon soir
E et F

 

[Michel_M]

Bonsoir Rem$



1/ les chiffres avec décimales ne sont pas des " integer", il faut alors utiliser le type "single"
2/ un textbox est propriété d'un objet: worksheets ou Userform etc.
3/ un texbox renvoie du... texte; il faut donc le convertir en nombre ici décimal par la fonction "Csng"

par exemple:
Dim uni As Single
uni= CSng(Sheets(1).TextBox2.Value)

A+

Michel

 

[rem$]

bonjour a tous, Evelynetfrancois, Michel M

merci Evelynetfrancois masi le coup du *100 j'avais essayer aussi.......
je vais donc me rabattre sur qqchose du plus carré cad la solus de Michel M
je test et vous tiens au courant

Merci
Rem$

 

[rem$]

re Michel M

voici le code qui m'avait servit de base pour mon calcul

'Private Sub TextBox1_Change()
'Dim brut As Integer
'Dim net As Integer

'If TextBox1.Value <> "" And TextBox2.Value <> "" Then
'brut = TextBox1.Value

'net = TextBox2.Value
'Label4.Caption = ((1 - (brut / net)) * 100)
'End If
'End Sub


je l'ai trouvé sur le forum, rubrique calculUSF
comme tu pourras le constater la commande Csng n'apparait nul part alors peut tu m'expliquer la difference avec mon calcul car la conception et le resultat attendu sont proches.....

merci d'éclairer ma lanterne

Rem$

 

[rem$]

re Michel M

voici une precision que j'ai oublié mais qui risque d'avoir son importance car en fait mon userform se trouve dans une page WORD car en fait il vient illustrer du texte. Comme je suis limité en taille (page) je voulais utiliser je subterfge pour gagner quelques lignes de présentation et rendre plus interacif mon document.....pour supprimer les "tableaux classiques" et remplacer par un tableau "evolutif" ou chacun peut rentrer ses données pour voir kel est le resultat.

Voila les choses sont replacées dans le contexte...
dslé de pas y avoir pensé avant....

d'avance merci

Rem$