Arrondir à l'entier supérieurRésolu

Question

Bonjour.
Existe-t-il une formule permettant d'arrondir un nombre non entier &#224; l'entier sup&#233;rieur : 12 reste 12 mais 12.1 devient 13 ?
Mon but est d'int&#233;grer cette formule dans un calcul, donc pas de r&#233;ponse du style : if n<>int(n) then n=int(n)+1.
Merci pas avance de vos r&#233;ponses.

cs_pcvesoul · Accepted Answer

Merci mais dans une formule &#231;a me parait un peut compliquer. En fait je m'autosatisfait moi-m&#234;me : n = int ( n + 0.99 )

Donc => 12 reste 12 mais 12.1 et 12.9 deviennent 13 (comme je voulais)

cs_ITALIA · Answer

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 · Answer

D&#233;sol&#233; mais je me suis gourr&#233; :

Dim Chiffre As Double


If Chiffre \ 1 = Chiffre Then
    Resultat = Chiffre
Else
    Resultat = (Chiffre \ 1) + 1
End If

It@li@