arrondi supRésolu

Question

Bonjour à tous, J'ai une macro qui me calcul un cout de stockage et je voudrai qu'elle arrondisse une partie de la formule explication; je voudrai que dans la formule ci dessous, le terme de l'expression ((cout * (nb - (t * cmm)) soit arrondi au supérieur. comment faire et comment l'introduire dans ma formule? Merci d'avance et bonne journée Function coutstockage() As Currency Dim cout As Currency Dim nb As Integer Dim cmm As Single Dim qtépces As Integer Dim nbjsécu As Integer Dim coutstocksécu As Currency Dim cmj As Single nbjsécu = Sheets("D1").Cells(185, 8) coutstocksécu = Sheets("D1").Cells(186, 8) If Cells(183, 8) = "UM" Then qtépces = Sheets("D1").Cells(126, 8) nb = Sheets("D1").Cells(180, 2) cmm = Sheets("D1").Cells(184, 5) cout = Sheets("D1").Cells(184, 8) cmj = Sheets("D1").Cells(182, 5) End If If Cells(183, 8) = "UC" Then qtépces = Sheets("D1").Cells(126, 2) nb = Sheets("D1").Cells(181, 2) cmm = Sheets("D1").Cells(185, 5) cout = Sheets("D1").Cells(184, 8) cmj = Sheets("D1").Cells(183, 5) End If Dim nbmois As Integer nbmois = Sheets("D1").Cells(187, 5) Dim t As Integer t = 0 Do While t <> nbmois coutstockage = coutstockage + ((cout * (nb - (t * cmm)) "c'est ce terme que je souhaite arrondir "+ (cmj * nbjsécu * coutstocksécu)) / (nb * qtépces)) t = t + 1 Loop End Function

cs_CanisLupus · Accepted Answer

Salut,

Essaie plut&#244;t &#231;a pour arrondir  au sup&#233;rieur:

coutstockage = coutstockage + ((Int(cout * (nb - (t * cmm)) + 0.5) + (cmj * nbjs&#233;cu * coutstocks&#233;cu)) / (nb * qt&#233;pces))

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

spa666 · Answer

Int(number)


Fix(number)


L'[javascript:hhobj_4.Click() argument] number peut contenir une valeur de type [javascript:hhobj_5.Click() Double] ou toute autre [javascript:hhobj_6.Click() expression num&#233;rique] valide. Si l'argument number contient une valeur de type [javascript:hhobj_7.Click() Null], Null est renvoy&#233;.


Remarques


Les fonctions Int et Fix suppriment toutes deux la partie fractionnelle de l'argument number et renvoient l'entier obtenu.


Diff&#233;rence entre les fonctions Int et Fix : si number est n&#233;gatif, Int renvoie le premier entier n&#233;gatif inf&#233;rieur ou &#233;gal &#224; number, alors que Fix renvoie le premier entier n&#233;gatif sup&#233;rieur ou &#233;gal &#224; number. Par exemple, Int convertit -8,4 en -9 et Fix convertit -8,4 en -8.


Fix(number) &#233;quivaut &#224; :

Sgn(number) * Int(Abs(number))

Lyly601 · Answer

Merci de votre r&#233;pone, donc si je compren bien je l'introduit ainsi

 coutstockage = coutstockage + int (((cout * (nb - (t * cmm))))  + (cmj * nbjs&#233;cu * coutstocks&#233;cu)) / (nb * qt&#233;pces))

??

TrafMaxime · Answer

je connais pas int et fix mais je crois que ce que voulais dire spa, c'est :

coutstockage =   'ton expression
coutstockage = fix(coutstockage)       'ou int..

mais peut-etre devras-tu appeler la fonction apr&#232;s la boucle (sinon chaque valeur sera arrondie..) :

while t < nbmois
    coutstockage = (a+b * e^papifaitdelaresistance ) - l'age du capitaine
    t = t + 1
end while
dim coutstockage_finalresolutionmaster as double
coutstockage_finalresolutionmaster = fix(coutstockage)

sinon, moi je l'avais fait sans ces fonctions h&#233;r&#233;tiques, pour arrondir &#224; 2 chiffres apr&#232;s la virgule.. (a bon entendeur : )

        Dim stpar As String = coutstockage
        Dim s2 As Char() = {","}
        Dim ltp As Integer = stpar.IndexOf(s2)
        Dim lgh As Integer = stpar.Length
        If lgh - ltp < 3 Then
        Else
            If ltp < 0 Then
            Else
                Dim arr As String = stpar.Substring(ltp + 2, 1)                If arr 1 Or arr 2 Or arr = 3 Or arr = 4 Then
                    stpar = stpar.Remove(ltp + 2, lgh - ltp - 2)
                    stpar = stpar.Insert(ltp + 2, "5")
                End If                If arr 6 Or arr 7 Or arr = 8 Or arr = 9 Then
                    Dim ars2 As String = stpar.Substring(ltp + 1, 1)
                    Dim ar2 As Integer = ars2
                    ar2 = ar2 + 1
                    Dim ars As String = ar2
                    stpar = stpar.Remove(ltp + 1, lgh - ltp - 1)
                    stpar = stpar.Insert(ltp + 1, ars)
                End If
            End If
        End If
.Maytheforcebewithyou.Maxime.

econs · Answer

Int(X)+1 arrondira &#224; tous les coups X &#224; la borne sup&#233;rieure.



Manu

econs · Answer

CanisLupus > OK pour ta m&#233;thode, mais un peu tordue quand m&#234;me ... 

Manu

cs_CanisLupus · Answer

<econs>  bah, c'est une m&#233;thode qui marche &#224; tous les coups avec int, fix, format et round donc je la garde. 

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

econs · Answer

Certes, faut pas changer une &#233;quipe qui gagne !

Manu

Lyly601 · Answer

Merci pour vos r&#233;ponses

cs_CanisLupus · Answer

Lyly601, pense &#224; cliquer sur "R&#233;ponse accept&#233;e !" pour la ou les r&#233;ponses qui te conviennent.
Ca peux servir &#224; ceux qui auraient la m&#234;me question que toi. Merci pour eux.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Arrondi sup

10 réponses

Discussions similaires