Arrondir à l'entier supérieur [Résolu]

cs_pcvesoul 123 Messages postés vendredi 21 janvier 2005Date d'inscription 25 juillet 2007 Dernière intervention - 3 juin 2005 à 07:20 - Dernière réponse : cs_ITALIA 2169 Messages postés vendredi 20 avril 2001Date d'inscription 30 juin 2009 Dernière intervention
- 3 juin 2005 à 07:38
Bonjour.
Existe-t-il une formule permettant d'arrondir un nombre non entier à l'entier supérieur : 12 reste 12 mais 12.1 devient 13 ?
Mon but est d'intégrer cette formule dans un calcul, donc pas de réponse du style : if n<>int(n) then n=int(n)+1.
Merci pas avance de vos réponses.
Afficher la suite 

3 réponses

cs_pcvesoul 123 Messages postés vendredi 21 janvier 2005Date d'inscription 25 juillet 2007 Dernière intervention - 3 juin 2005 à 07:36
+3
Utile
Merci mais dans une formule ça me parait un peut compliquer. En fait je m'autosatisfait moi-même : n = int ( n + 0.99 )

Donc => 12 reste 12 mais 12.1 et 12.9 deviennent 13 (comme je voulais)
Cette réponse vous a-t-elle aidé ?  
cs_ITALIA 2169 Messages postés vendredi 20 avril 2001Date d'inscription 30 juin 2009 Dernière intervention - 3 juin 2005 à 07:32
0
Utile
Dim Chiffre as Val
Dim ArondiUn As Val
Dim ArondiZero As Val
Dim ArondiExce As Val

ArondiUn = Round(Chiffre, 1)
ArondiZero = Round(Chiffre, 0)

If ArondiUn > ArondiZero Then
ArondiExce = ArondiZero + 1
Else
ArondiExce = ArondiZero
End If

It@li@
cs_ITALIA 2169 Messages postés vendredi 20 avril 2001Date d'inscription 30 juin 2009 Dernière intervention - 3 juin 2005 à 07:38
0
Utile
Désolé mais je me suis gourré :

Dim Chiffre As Double


If Chiffre \ 1 = Chiffre Then
Resultat = Chiffre
Else
Resultat = (Chiffre \ 1) + 1
End If

It@li@

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.