Discussion :

[kariiim]

Bonjour,

Dans mon formulaire principal, au niveau du pied de formulaire, je dispose d'une zone de texte ou est effectué le calcul suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=Somme([temps_cablage_unitaire]*[quantité])/60

Et je souhaiterai savoir comment faire pour que par exemple à l'issue du calcul, si le résultat est 3.37, qu'il m'affiche 4

Merci bien...

[Khab']

la recherche "arrondi" dans le forum donne:

http://www.developpez.net/forums/sho...hlight=arrondi

Khab'

[kariiim]

Le nom de mon controle ou s'effectue le calcul est tps_cablage
Lorsque je rentre le code suivant dans la propriété Après MAJ, Access me renvoie une erreur au niveau du formulaire principal...
En fait je pense que je ne l'ai pas entré au bon endroit et que je n'ai pas bien nommé la variable que je veux arrondir.. ???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub tps_cablage_AfterUpdate()
Enum myRoundEnum
    myRoundup = -1
    myRoundDown = 1
End Enum
 
Public Function myRound(tps_cablage As Variant, Optional byNbDec As Byte, Optional eSens As myRoundEnum = myRoundup) As Variant
   myRound = eSens * Int(eSens * tps_cablage * 10 ^ byNbDec) / 10 ^ byNbDec
End Function
End Sub

Merci pour votre aide

[kariiim]

En fait je pense que je ne comprend pas bien comment procède la fonction..

[kariiim]

Finalement dans le source controle, j'ai tapé la ligne suivante:

=int(Somme([temps_cablage_unitaire]*[quantité])/60)+1

pensez que ce soit une bonne idée..
??

[random]

int(Somme([temps_cablage_unitaire]*[quantité])/60)+1

testons la formule
avec 1 seule valeur
temps cablage unitaire=60
• quantité=1=60
• /60 =1
• int=1
• +1=2 c’est une très bonne idée, si c’est ce que tu souhaites
• cela revient à dire arrondisup(1)=2

[Invité]

Bonjour Kariiim et Random,

C'est bien ce que je m'apprêtais à signaler :

si le résultat est déjà exactement un nombre entier (exemple 4) le résultat va devenir 5.

Ce qui à priori paraît un peu bizarre, mais si c'est ce que veut Kariiim, alors c'est très bien.

Par contre s'il veut que pour avoir 5 en final il faut que le résultat du calcul soit compris entre 4,01 et 5 ce n'est plus tout à fait la même chose.

un exemple de calcul dans ce cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
nb =Somme([temps_cablage_unitaire]*[quantité])/60
nb1 = Round(nb, 0)
nb1 = nb / nb1
If nb1 = 1 Or nb1 < 1 Then
nb = Round(nb, 0)
Else
nb = Round(nb, 0) + 1
End If

Amicalement.

[kariiim]

Quelle étourderie de ma part...

Merci bien à vous deux!

Cordialement,

Kariiim

[100RENK1]

Salut,

Je rentre (très) en retard dans la discussion (clôturée), mais tu aurais pu faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

VraiFaux( Int(Ton_calcul) - (Ton_calcul) = 0; (Ton_calcul) ; Int((Ton_calcul) + 1)