Voila, j'ai une BD avec un champ Salaire (numerique)...sur ma feuille ce champs apparait dans un TextBox donc je fait le code suivant :
 
Private Sub txtFields_Change(Index As Integer)
 
txtFields(5).Text = (Val(txtFields(4).Text) * 16 / 100)
txtFields(7).Text = (Val(txtFields(4).Text)) + (Val(txtFields(5).Text))
 
End Sub  
 
he bien il ne me prend pas en compte les decimale c'est a dire que si je fait 12,9 + 1,5 ben il me donne 13 au lieu de 14,4
 
Comment faire pour qu'il tienne compte des decimales ?

Je pense que ceci est lié au format du contenu Text qui par dédaut est de type Variant.
 
Il faut que tu mette le contenu texte dans une variable de type Numeric
 
ex : Dim Nombre as single
     ...      
     Nombre = text1.text
     ...
 
   
 
J.

non marche pas si je met une virgule il me la compte pas et si je met un point quand je valide il me le met entier ex 12.3 devient 123 !!

ca va j'ai trouvé il faut utiliser CDBL au lieu de VAL...
 
merci kan même...

voire clng pour moins pomper en mémoire... mais bon, je pinaille...