ARRONDIR DES NOMBRES À UN CERTAIN NOMBRE DE DÉCIMALES

Xentor - 15 nov. 2001 à 07:36
mprog67 Messages postés 28 Date d'inscription mercredi 24 mars 2010 Statut Membre Dernière intervention 14 mai 2012 - 14 mai 2012 à 20:29
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/2131-arrondir-des-nombres-a-un-certain-nombre-de-decimales

mprog67 Messages postés 28 Date d'inscription mercredi 24 mars 2010 Statut Membre Dernière intervention 14 mai 2012
14 mai 2012 à 20:29
Bonsoir à tous, mois j'utilise cette fonction pour arrondir un nombre

Public Function RoundUp(Nb As Double) As Integer
' On déclare une variable qui contiendra la valeur décimale
Dim Décimale As Integer
' Extraire la décimale
Décimale = Nb * 100 - Int(Nb) * 100
If Décimale > 0 Then Nb = Int(Nb) + 1
RoundUp = Nb

End Function
rrr_zidane_8 Messages postés 2 Date d'inscription mardi 19 avril 2005 Statut Membre Dernière intervention 12 octobre 2006
30 nov. 2006 à 19:29
MERCI BEAUCOUP POUR VOTRE EFFORT
ikariShinji Messages postés 18 Date d'inscription mercredi 13 mars 2002 Statut Membre Dernière intervention 2 juin 2005
24 sept. 2003 à 17:58
"Il y a beaucoup plus simple : utiliser le deuxième argument de la fonction Round, qui précise le nombre de décimales."

Bien sûr Xentor, mais la fonction Format permet en plus une mise en forme en séparant les milliers par un espace. Par exemple :
Format(50350.489, "###,###,###.00") donne : "50 350,49".
Au fait : je ne vois pas l'utilité de toutes ces lignes superflues.... En fait, ton code se résume à ceci :
text1.text = format (77 / 78,"#0,000")
Pis format renvoie une string.. ca serait plus propre un cdbl(format(...)) ;P
(Pour pinailler quoi.. et assurer le passage de ta fonction a vb.net ;)
Vous avez raison tous les deux, la seule difference c qu'avec la version de Supo, c que ca marche aussi en VBA. Comme dans Excel ou Access par exemple.
Il y a beaucoup plus simple : utiliser le deuxième argument de la fonction Round, qui précise le nombre de décimales.
Ex : Round(56.125756,3) renvoie 56.126
Rejoignez-nous