Discussion :

[bernardmichel]

Bonjour

Après recherche, je n'ai pas trouvé de code simple pour arrondir un montant à 5ct.

A toutes fins utiles, je vous joins le code que j'ai trouvé...si c'est utile à quelqu'un ??

Code :

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

1
2
3
4
5
6
Private Sub TVAVente_AfterUpdate()Dim PV  As Double
    PV = Me.PrixVenteHT + (Me.PrixVenteHT * Nz(Me.TVAVente, 1) / 100)
    PV = (Round((PV * 20), 0)) / 20
    Me.PrixVenteTTC = PV
    Me.PrixVenteTTC.SetFocus
End Sub

J'ai simplement utilisé le chiffre 20 dans ma formule... puisqu'il y a 20 * 5 dans 100 et cela fonctionne à merveille.

[Oliv-]

Salut,
J'avais eu besoin d'un truc comme cela pour avoir des primes divisibles par 4.
ici en formule

Code :

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

=ARRONDI.SUP(E3/4;2)*4

pour 5 ct ca donnerai

Code :

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

=ARRONDI.SUP(E5/5;2)*5