Question de débutant.

Question

Je débute en programmation, ça m'arrangerait vraiment si on pouvez m'aider un p'tit peu, voilà, dans un petit prog je me retrouve avec cette ligne :

lblttc.Caption = str(val(lblttc.Caption) + val(grille.Text))

Le problème c'est que le résultat est automatiquement arrondi (sans décimales) mais moi il me faudrait 2 décimales ! Comment faire ?!

Merci d'avance.

Necrite · Answer

Salut 
as-tu essayer la fonction format
format( tu mets ce que tu veux formater ici,"le format")

lblttc.Caption = format(str(val(lblttc.Caption) + val(grille.Text)),"0.00")
@+

nostromo2022 · Answer

Déjà merci pour la réponse, alors j'ai essayé cette fonction les décimales apparaissent ENFIN mais (et oui il y a un mais...) malheureusement elles restent à 0, comme si elles n'étaient pas prises en compte !! D'ou vient mon erreur !!! Par ailleurs j'ai aussi utilisé la fonction ROUND mais sans résultat également... :(

Necrite · Answer

OK
essaye ça maintenant
lblttc.Caption = format(clng(lblttc.Caption) + clng(grille.Text)),"0.00")

je ne garantie pas que ca marche
normalement c pour convertir en numerique
essaye tjrs...

nostromo2022 · Answer

Non ça veut vraiment pas, j'ai du faire une connerie ailleurs !! Chais pas... Merci quand même !!

Necrite · Answer

aucun prob
fais voir ta source je vais peut etre te dire ce qui cloche

ZTPdiffusion · Answer

Salut

Tu peux essayer ça :

  Dim valeur1, valeur2, valeurttc
  valeur1 = lblttc.Caption
  valeur2 = Grille.Text
  valeurttc = Format((Round(valeur1, 2) + Round(valeur2, 2)), "###0.00")
  lblttc.Caption = valeurttc

  'Pour entrer les chiffres avec décimales il faut mettre une virgule
  'et pas un point car sinon ça ne fonctionne pas

a+

nostromo2022 · Answer

Je peux te l'envoyer dans un mail ?

Question de débutant.

7 réponses

Discussions similaires